BuilduCodcTutorial.bravo 

Building a disk for microcode development. 

This tutorial will take you stepwise through a procedure for installing the appropriate 
software on a disk for microcode development. Because this procedure involves two disks 
and because members of the microcode group utilize parts of this procedure in the daily 
development environment, it was decided that the several parts of this build procedure 
should remain disjoint rather than be integrated into a single command file. 

There is a document which contains the procedure outlined below in flow-chart form. It 
is on [ Iris] <wdO>BuilduCodeChart.prcss, .sil. It may be helpful in giving an overview of 
the process despite its considerable abstractions. * 

^ Be aware that this procedure requires two disks! 

Command files referenced below usually have self-contained documentation. 

=> Build paths for various modes (Alto, DO, Software-bootable, pushbutton-bootable, etc.) 
will be addressed at the appropriate points below. 

1. Spin up a clean (or eraseablc) disk on your Alto. Boot the NetExec and invoke 
^NewOS.boot (see Alto User’s Handbook, pp 6). Use the long installation dialog, DO erase 

the disk, and do not change any parameters. The Alto program host can be Iris, Maxc, 
etc. and the Alto program directory should be Alto. You do not need a big SysDir. 

2. Retrieve and execute [ Iris] < wdO>BarcBoncs.cm. 

This will install minimal software utilities (Bravo, EmPress, etc.) on y6ur disk for 
working with microcode. Don’t forget: to edit the HARDCOPY section of your Uscr.cm 
and to initialize Bravo before continuing to step three. 

3. Retrieve and execute [ Iris] < wclOXMidasDisk.cm. 

This will install Swat and the Midas loader/debugger on the disk. 

4. Retrieve and execute [ Iris] < wdO> ExtantFiles.cm. 

This will install Micro.run (microcode assembler). Micro!!).run (microcode instruction 
placer), and various microcode files currently needed to build a microcode disk. 

5. (Retrieve and)cxccute [ Iris]< wdO>MicroAll.cm. 

This will assemble the entire complement of DO microcode. It is probably worth getting 
a hardcopy of this file. 

=$> Should we tell user to check for errors here? 

As you are doubtless aware, there arc two modes of microcode for the DO: Alto- 
compatible and DO-compatible. The following prose assumes Alto-mode in normal text 
and DO-mode in parenthesized text, c.g. the phrase ’'execute ©Alto-Mumblc.cm (@D0- 
Mumblc.cm)" implies running Alto-Mumblc.cm for an Alto-mode build and D0- 
Mumble.cm for a DO-mode build. 

6. (Retrieve and^executra[ Iris]<wdb>BMesal.cm (BDMesal.cm). 

This builds the first block of the microcode, BMcsal.mb (BDMesal.mb). 

7. (Retrieve and^)execute [Iris]<wd0>BAMcsa.cm (BDMesa.cm). 

This builds the second block of the microcode, BAMesa.nib (BDMesa.mb). 

8. Check your disk directory for the existence of the microcode binary files that should 
have been produced by the two preceding steps: BMcsal.mb and BAMesa.nib 
(BDMesal.mb and BDMesa.mb). STORE these two files on your local file server and spin 
down the disk. We will now go to the second disk, since the current one probably has 



only a few hundred free pages remaining. 

9. Using another clean or erascable disk, build a Basic Mesa 5.0 disk as follows: 

A. Invoke NewOS.boot from the NetUxcc as detailed in step 1 of this procedure. 

B. Retrieve and execute [ Iris/Isis] <Mcsa>MesaDisk.cm. 

This Basic Mesa 5.0 disk will contain Bravo. Other utilities may be added later if free 
space is available. Don’t do it now! 

10. Retrieve the following files: 

[your-IPS]<your-directory>BMesal.mb, BAMesa.mb (BDMesal.mb, BDMesa.mb) 

[ Iris] <wd0> MakcLoaderFile.bcd 

For creating pushbutton-bootable microcode only: 

[ Iris] < wdO>MakcAltoBoot.mlf (MakeDOBoot.mlf) 

[ Iris] < wd0> AltoBoot.cm (DOBoot.cm) 

[ Iris] <Alto>MovcToKeys.run 

For creating software-bootable microcode only: 

[ Iris] < wd0> MakeAsb.mlf (MakeDsb.mlf) 

11. If you want software-bootable microcode, this is the last step. If not, skip this step 
and go to step 12. 

For software-bootable microcode only, execute: , 

MakcLoaderFile.bcd MakeAsb.mlf (MakcLoaderFile.bcd MakeDsb.mlf) 

This should produce the software-bootable microcode file named AMcsa.sb (DMcsa.sb) on 
your disk. This completes the build procedure. The steps below pertain only to building 
pushbutton- bootable microcode. 

12. If you want pushbutton-bootable microcode, then continue with this step. If you want 
software-bootable microcode, go back to step 11. 

For pushbutton-bootable microcode only, execute: 

MakeLoadcrPllc.bcd MakcAltoBoot.mlf (MakcLoaderFile.bcd MakeDOBoot.mlf) 

This should produce the bootable microcode file named AltoBoot.bt (DOBoot.bt). To 
make this microcode PUSHBUTTON-bootable, execute: 

©AltoBoot.cm (©DOBoot.cm) 

This disk should now be pushbutton-bootable on a DO. Try it. 

13. Fncl of procedure. 
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// [Iris]<wdO>MicroAll .cm 

// Last modified by Chang on October 11, 1979 6:32 PM 

// modified by Chang on September 7, 1979 1:33 PM 

// Modified by Max ion on August 24, 1979 

// This command file assembles the entire complement of DO microcode. 

// These commands will produce the .DIB files used by MicroD. 

// This procedure requires about 575 disk pages and about 36 min. to run. 

// Documentation; 

// Self contained; 

// [ I ri s]<wd0>lle1 p-wdO . bravo ; 

// Micro: Machine-Independent MicroAssembler by Fiala, Deutsch, Lampson. 

// Micro assembles a sequence of source files with default extension ".me" and outputs 
// four files whose extensions are ".MB", ".ER", ",LS", and ".ST”. The default name for 
// these is the name of the last source file assembled. Note that applied to this 
// command file (MicroAll.cm) there is a hack in the file DOLang.mc that causes the file 
// extension ".MB" to be changed to ".DIB". The pertinent line from DOLang.mc is: 

// "BUILTIN[SETMBEXT0,47]; *Set .mb file 


// You must have the microcode assembler on your disk 
// [lris]<wdO>Micro.run or [Maxc]<Alto>M1cro.run 


// ... and the global files 

// [Iris]<wdO>GlobalDefs.me and DOLang.mc 


// ... and the definitions file(s) as necessary for each module. 

// [Iris]<wdO>UIDefs.me, DMDefs.mc, EtherDefs.me, XWDefs.mc, OccupiedDefs.me 


// The 
// 

// 

// 

// 

// 

// 

// 

// 

// 


following is true for the assembly commands below: 

<FileName> defaults to <FileName.mc> 

The "/o" means that symbol table (.ST) output will be suppressed. 

The "/u" means that all source characters will bo converted to upper 
Tho "/b" means tho binary will bo listed on the file named before the 
Outputs from Micro.run are as follows: 

Fi1eName.DIB - D-machine intermediate binary 
FileName.ER - error list 
FileName.LS - assembly listing 

Filename.ST - symbol table 


case. 
s 1 a s h . 


// IIJTFP (Interim User Terminal, Full Page) 

II Requires [Iris]<wdO>UIDefs.me 
micro/o/u Ullnit 
micro/o/u UITask 
micro/o/u Key 

// UTLF (User Terminal, Full Page) 

// Requires [Iris]<wdO>LFDefs.me 
micro/o/u LFInit 
micro/o/u LFTask 

// IRDC (Interim Rigid Disk Controller) 

// Requires [Iris]<wdO>DMDefs.mc 
micro/o/u DMInit 
micro/o/u DMTask 

// RDC (Rigid Disk Controller) 
micro/o/u RDC 

// EthorNet + RS232 

// Requires [Iris]<wdO>EtherDefs.me 

micro/o/u Etherlnit 

micro/o/u EtherTask 

micro/o/u rs232Sio 

// EtherNet masquerading as XWire 
// Requires [Iris]<wdO>XWDefs.mc 
micro/o/u XWInit 
micro/o/u XWTask 
micro/o/u XWSio2 

// Nova emulator 
micro/o/u Nova 

// Mesa emulator, DO mode 
micro/o/u MesaLS 
micro/o/u MesaJ 
micro/o/u MesaX 
micro/o/u MesaP 

// Mesa emulator, Alto mode 
micro/o/u aMesaLS/b AltoMode MesaLS 
micro/o/u aMesaO/b AltoMode MesaJ 
micro/o/u aMesaX/b AltoMode MesaX 

// BitBlt (Bit Block Transfer), both Alto and DO modes 
micro/o/u BitBlt 

micro/o/u aBitBlt/b AltoMode BitBlt 

// Initialization: devices and memory 
micro/o/u Initialize 

micro/o/u Alnitialize/b AltoMode Initialize 

// Fault handler 
micro/o/u Fault 

// Dead start and timer code 
micro/o/u Timer 
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// Two Stage Overlay code 
micro/o/u Overlay 

// Blocks I and II reserved words 
// Requires [Iris]<wdO>OccupiedDofs.me 
micro/o/u Mesaloccupied 
micro/o/u Mesa2occupied 
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// [ I r1s'J<wdO>AKoBoot. cm 

// Last modified 011 August 17, 1979 

// Last editor was Maxion, 

// Command file to make a MEW Alto-mode, DO-bootablo disk. 

// Executing this file in the presence of the files listed below 
// will make your disk bootable from the DO Maintenance Panel. 

// This procedure does not require free disk pages to run. 

// Documentation: 

// Self contained and [Iris ]<wdO>lle Ip-wdO. bravo 

// This command file requires: 

// [Iris]<Alto>MoveToKeys.run 

// [Iris]<wdO>AltoBoot.bt UNLESS a novi AltoBoot.bt is generated. 
// (See [Iris]<wdO>Melp-wdO.bravo.) 

MoveToKeys AltoBoot.bt 6GF. 

// This disk is now bootable from a DO Maintenance Panel. 
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// [Iris]<wdO>AMesa.cm 

// Last modified on 28 August 1979. 

// Last editor was Maxiou. 

// Builds inidas boot version, alto mode 

// This file is basically undocumented, but will bo improved later. 
// (I'm not even sure what it's for or if it works. - IIM) 


MicroD/c AMesa/o Nova IJIInit IJITask Key DMInit DMTask Etherlnit EthorTask rs?.32SI0 aMosaLS aMesaJ aMesaX MesaP DitBlt Fault mlnitialize 
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// [Iris]<wdO>BAMesa.cm 

// Last modified on August 1/, 1979 

// Last editor was Haxioii. 

// Builds second block of DO microcode, Alto-mode. 

// Generates BAMesa.mb, which can be loaded into a D-machine and run by Midas. 

// This procedure requires about 90 free disk pages. 

// Documentation: 

// [Iris]<wdO>Help-wdO.bravo 
// MicroD Manual by Peter Deutsch 

// For origins of AMesaLS, etc. and other ",dib" files see [Iris]<wdO>M IcroAI I.cm 
// The ".dib" files are output from the MicroAssembler, Micro (Micro.run). 

// This command file requires the following files on your disk: 

// [Iris l<wdO>MicroD.run 

// and the .dib files (default extension) named in the commands below. 


// The result of running this command file will be the generation of: 
// BAMosa.MB 


// 

-.csniap for 

each file. 

Invoked 

by 

L ho global 

"/m" 

switch. 

// 

~. 0 c c u p i e d 

for each file. 

Invoked 

by 

the global 

"/in" 

switch. 

// 

~.rogs for 

each file. 

Invoked 

by 

the global 

"/in’ 

' switch 


MIcroD/m/o/r BAMesa/o MesalOccupied Nova AMesaLS AMosaJ AMosaX MosaP ABitBIt 
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// [ T i' 1 s]<wdO>BareBones . cm 

// Last modified on August 20, 1979. 

// Last editor was Maxion. 

// Tli is command Mia will install the minimum (more or less) software on a disk to bo 
// used for microcode (or other) development. The user should have "primed" a new 
// disk by booting NewOS.BOOT from Lhe NetExec before using this command file. 

// This procedure requires about 1200 free disk pages. 

// This file will install: 


// 

Bravo 

for editing 

microcode, etc. 


// 

Emp ress 

for printing 

with ease 


// 

Neptune 

for perusing 

your directory 


// 

Swat 

for Midas . 

. . and other th ings .. 

. to work 


// Any of these may be deleted except Swat, without which Midas will give you grief. 

// llemoval of any of the others will only inconvenience you. 

// Documentation: 

// Self contained. 

Log in 

// Retrieve tools and fonts 
Ftp.run Maxc t 

t 

Directory/c Alto Retrieve/c RotrioveBravo.cm Empress . run Neptuno . run Ins tal ISv/at. run t 

t 

Rotrieve/s NProg-User.cm User.cm t 

■t 

Directory/c AltoFonts Rotrievo/c TimesRomanB.al TimesRomniilO. al T iines Romani 2. al TimesRonianld. al lie IveticaS.a I HelvcticalO.nl Helvotical2. 
**al lie! vet ical2b. al llolvctical8. al GachaS.al GachalO.al Gachal2.al llippo.10.al Logo24.al MathlO.al ArrowslO.al f 

t 

Directory/c Fonts Rctriove/c Fonts.Widths 

// Install Swat 
Ins tall Swat 

Delete Insta’11 Swat. run 

// Bravo is not fetched until here because installing it requires the font 
// files and User.cm. Be sure to re-install Bravo if you change user.cm. 

ORetrievoBravo.cin 

Delete RetrievoBravo.cm Dumper.Boot DMT.boot 

// Install a variable pitch system font 
Copy SysFont.al <- Times Roman 12 . a I 

// Must boot now because of OS bug that may cause it to 
// crash if SysFont.al got bigger. 

BootTrom Sys.Boot 


// Please edit the [HARDCOPY] section in User.cm to specify the name 
// of your regular Press-printing server, then say Bravo/i. 


// Delete this command file. 
Delete BareBones.cm 
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// [Iris]<wdO>BDMesa.cm 

// Last modified on August 17, 1979 

// Last editor was Max ion, 

// Builds second block of 00 microcode, 00-mods. 

// Generates BDMcsa.mb, which can bo loaded into a D-machine and run by Midas. 
// This procedure requires about 90 free disk pages. 

// Documentation: 

// [1risjCwdOM'eip-wdO.bravo 
// MicroD Manual by Peter Deutsch 

// for origins of ",dib" files see [Irls]<wdO>MicroAI I.cm 

// The ”.dib" files are output from tho MicroAssemblor, Micro (Micro.run). 

// This command file requires tho following files on your disk: 

// [Ir1s]<wd0>M1croD.run 

// and the .dib files (default extension) named in the commands below. 


// The result of running this command file will be the generation of: 
// BDMesa.MB 


// 

~.csmap for each file. 

Invoked 

by 

tlie global ' 

Vin" 

switch. 

// 

~.occupied for eacli file, 

Invoked 

by 

tho globa1 1 

"/in" 

switch. 

// 

~.regs for each file. 

Invoked 

by 

the global 

"/m 1 

' switch 


MicroD/m/o/r BDMcsa/o Mesaloccupled Mesnl.S Mosa.J MesaX McsaP BitBit 
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// [Iris]<wdO>BDMesal.cm 

// Last modified by Chang on October 10, 1979 0:42 PM 

// modified by Chang on September 7, 1979 1:25 PM 

// Modified by Maxion on August 24, 1979 

// Builds first block of 00 microcode, 00 mode. 

// Generates BDMosal.mb, which can be loaded into a D-inachine and run by Midas. 
// This procedure requires about 120 free disk pages. 

// Documentation: 

// [ I ri s'|<wd0>Hel p-wdO, bravo 
// MicroD Manual by Peter Doutsch 

// For origins of ".dib" files see [Iris |<wd0>MicroAl1.cm 

// The ".dib" files are output from the MicroAssembler, Micro (Micro.run). 

// This command file requires the following files on your disk: 

// [Iris]<wd0>HicroD.run 

// and the .dib files (default extension) named in the commands below. 


// The result of running this command file will be the generation of: 
// BDMosal.MB 


// 

-.csmap for 

each file. 

Invoked 

by 

the 

global "/m" 

swi tell. 

// 

~.occupied 

for each file. 

Invoked 

by 

t ho 

glolial "/in" 

switch. 

II 

~. regs for 

each filo. 

Invoked 

by 

tlio 

global "/in' 

' switch 


MieroD/m/o/r BDMesal/o Mosa2ocr,upied t Fin 11 LFTask Key DMInit DMTask RDC XWInlt XWSio2 XWTask rs23HSio Fault Initialize Overlay Timer 
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// [Iris]<wdO>BMesal.cm 

// Last, modified by Chang on September 12, 1979 9:19 AM 

// Modified by Maxion 011 August 24, 19/9 

// Builds first block of DO microcode, Alto-mode. 

// Generates BMesal.mb, which can be loaded into a D-machine and run by Midas. 
// This procedure requires about 12b free disk pages. 

// Documentation: 

// [Iris]<wdO>Help-wdO.bravo 
// MicroD Manual by Peter Deutsch 

// For origins of ",dib" files see [Iris]<wdO>MicroAlI.cm 

// The ''.dib" f iles are output from the MicroAsseinblcr, Micro (Micro, run). 

// This command file requires the following files on your disk: 

// [Iris'J<wdO>MicroD. run 

// and the .dib files (default extension) named in the commands below. 

// The result of running this command file will be the generation of: 


// 

BMesal.MB 




/ / 

~.csmap for each file. 

Invoked by the global ' 

"/in" 

switch. 

// 

~.occupied for each file. 

invoked by tho global ' 

7m" 

sw i tch. 

// 

~.regs for each file. 

Invoked l)y the global 

"/m* 

' switch 


MicroD/m/o/r BMesal/o Mesa2occup ied LF'lnit LFTask Key DMInit DMfask liDC Etherlnit EtherTosk rs232Sio Fault Alnitialixe Overlay Timer 
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// [Iris]<wdO>Dui1dSys.cm 

// Last modified on August 17, 1979 

// Last editor was Maxion. 

// This command file builds the DO microcode system. 

// It is essentially the concatenation of the ".cm" files in the commands below PLUS 

II the apparatus to create the pushbutton & soft boot files for Alto- and DO-modos. 

// Documentation: 

// Self contained and [Iris]<wdO>Mo1p-wdO.bravo 
// Salient results: 

// Create the pushbutton & soft boot files for Alto- and DO-modos. 

// These files will be named AltoBoot.bt, AMosa.sb, DOBoot.bt, and DMesa.sb 
// where ".bt" indicates pushbutton-bootable and ".sb" indicates software-bootable. 

// This command file requires the following files on your disk: 

// [Iris]<wdO>MicroO.run 

// [Iris J<wdO>MakoLoadei'l ile. bed 

II [Iris]<wdO>MakeAll .in 1 f 

// ... and all the appropriate ".dib" files required for the ".cm" files below. 

// It is usual to have run MicroAll.cm before running this file. 

II Dulld first block of DO microcode, Alto-mode: BMesal.mb. 

OBMesal.cm 
delete BMesal.dls 

// Build second block of DO microcode, Alto-mode: CAMesa.mb. 

@BAMesa.cm 
delete BAHesa.dls 

// Build first block of DO microcode, DO-mode: BDMesal.mb. 

QBDMesal.cm 
delete BDMesal.dls 

// Build second block of DO microcode, DO mode: BDMosa.mb. 

SBDMesa.cm 
delete BDMesa.dls 

// Create the pushbutton & soft boot files for Alto- and DO-inodes. 

Makel.oado rf i 1 e MakeAll.mlf 
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EMPRESS.RUN Gacha/f 6/p dais.y/h AltoModn.mc BAMesaOccupied.mc RDMesaloccupied.mc BDMesaOccnpiod.mc BilBIt.mc BMesaloccupied.me DOLang.mc 
**DMDefs.mc DMInit.mc DMTask.mc EthorDefs.me Etherln i t .me Ether-Task, me Fault.me Globa IDet's .me In it. ia 1 ize.mc Kernel.me Ke.y.mc LFdefs.mc LF 
**init.mc LFkey.mc LFtask.mc Mesaloccupied.me Mesa2occup ied.me MesaJ.mc MnsaLS.mc MesaP.mc MesaX.mc Nova.me OceupiedDefs.mc Overlay.me RD 
"""C.inc RDCdefs.mc rs232Async. me rs232AsyncTest .me rs232Bit.mc rs2320 i tlost.inc rs232B.yte.mc rs232ByteTest.rac i‘s732Defs.mc rs232oecup iod.mc 
** RS232SI0.H1C rs232Test.me Tinier. 111 c UTDefs.roc UHnit.mc UXTask.mc XWDefs.mc XWInit.mc XWInit2.mc XWSio.mc XWSio2.mc XVlFask.mc AltoBoot.c 
**m AMesa.cm BAMesa.cm BareBones.cm BDMesa.cm BOMesal.cm BMesal.cm Bu i 1dSys.cm Coin.Cm DOBoot.cm DMesa.cm ExtantFi1es.cm lino.cm MicroAll. 
»*cm MidasDisk.cm Rem.Cm rs232Bui1dSD.cm rs232Test.cm User.cm 
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// [ I ris]<wdO>DOboot. cm 

// Last modified on August 17, 1979 

// Last editor was Maxion. 

// Command file to make a NEW DO-mode, DO-bootable disk. 

// Executing this file in the presence of the files listed boiow 
// will make your disk bootable from the DO Maintenance Panel. 

// This procedure does not require free disk pagos to run. 

// Documentation: 

// Self contained and [IrisJ<wdO>Help-wdO.bravo 

// Ttiis command file requires: 

// [Iris]<A1to>MoveToKeys.run 

// [Ir1s]<wd0>D0boot.bt UNLESS a new DOboot.bt is generated. 

// (See [Iris]<wdO>llelp-wdO.bravo. ) 

MovoToKeys DOboot.bt 56E 

// This disk is now bootable from a DO Maintenance Panel. 
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// [Iris]<wdO>DMosa.cm 

// Last modified on 28 August 1979. 

// Last editor was Maxion, 

// Builds ml das boot version, DO mode 

// This file is basically undocumented, but will be improved later. 
// (I'm not even sure what it's for or if it works. - RM) 


MicroD/c DMesa/o Nova Ultnit UITask Key DMInlt DMfask Etherlnit EtherTask rs232Sio MosaLS MesaJ MesaX MesaP BitOlt Fault mlnitialize 
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// [ X r i s]<wdO>Extan tFiles . cnt 

II Last modified Chang, October 17, 1979 11:32 AM 

// modified Chang, September 20, 1979 5:34 PM 

// Modified by Maxion on August 24, 1979 

// Documentation: 

// Se lf contained and [Iris]<wdO>llelp-wdO. bravo 
// This command file will fetch and install: 

// the microcode files currently needed to build a microcode disk from scratch; 

// the microcode assembler, Micro.run: 

// the microcode instruction placer, MicroD.run. 

// This procedure requires about 1000 free disk pages. 


// Brief explanation of file requirements for Microcode: 

// Micro.run ... microcode assembler - needed for MicroAll.cm 

// MicroD.run ... microcode instruction placer - needed for building Mesa microcode 
// DOLang.mc ... microcode definition language - needed for MicroAll.cm 
// GlobalDefs.mc ... global definitions for microcode - needed for MicroAll.cm 
// ~.mlf ... data for MakeLoadcrFile. 

II For brief explanations of the rest of those microcode files, see MicroAll.cm. 

FTP Iris Directory/c <wd0> Rctrieve/c Micro.run MicroD.run GlobalDefs.mc DOLang.mc t 

AltoMode.mc MesaLS.mc MesaJ.mc MesaX.mc MesaP.mc BitBlt.inc Nova.me Ini t ial izc.mc Fault.me UIDefs.mc Ullnit.inc UITask.mc LFDefs.mc LFInit. 
**mc LFTask.inc XWdefs.mc XWInit.mc XWSio2.mc XWTask.mc Key.me DMDefs.mc DMInit.mc DMTask.mc RDCdefs.mc RDC.mc EtheiDufs.me ELherlnit.mc 
**EtherTask.me RS232SIO.mc Timer.me Overlay.me MesalOccupied.me Mesa20ccupied.me OccupiedDefs.me Kernel.me r 

T 

MicroAll.cm BMesal.cm BDMesal.cm BAMesa.cm BDMesa.cm 
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ftp Iris dir/c <ad0>40w> ret/c AltoMode.mc BAMesaOcctipied .me BDMesaloccupied.mc BDMesaOccupied.mc BitBlt.mc BMosaloccupied.me DOLang.mc 0 
**MDefs.mc DMInlt.mc DMTask.mc EtherDefs.me Etherlnit.mc EtherTask.mc Fault.me GlobalDefs.me Initialize.me Kernel.me Key.me LFdefs.mc LFi 
•*nit.mc LFkey.mc LFtask.mc Mesaloccupied.me Mesa2occupied.mc MesaJ.mc MesaLS.mc MesaP.mc MesaX.mc Nova.me OccupiedDef s .me Overlay.me RDC 
* * .me RDCdcfs.mc rs232Async . me rs232AsyncTest.inc rs2328'it.mc rs232B i tTes t. me rs232Byte . me rs232By teTest .me rs232Def s .tnc rs232occupied.mc 
**RS232SIO.mc rs232Test,inc Timer.me UIDefs.me UXInit.mc UITask.mc XWDofs.mc XWInit.inc XWInit2.mc XWSio.mc XWSio2.mc XWTask.mc AltoBoot.cm 
** AMesa.cm BAMesa.cm BareBones.cin BOMesa.cm BDMesal.cm BMesal.cm BuildSys.cm DOBoot.cm DMesa.cm ExtantFilos.cn) HicroAll.cm HidasDisk.cm 
** rs232Bui1dSB.cm rs232Test.cm 

empress Gacha6/f AitoHode.mc BAMesaOcctipied.me BDMesaloccupied.mc BDMesaOccupiod.me BitBIt.mc BMesaloccupied.me DOLang.mc DMDefs.mc DMIni 
**t.mc DMTask.mc EtherDefs.me Etherlnit.mc EtherTask.mc Fault.me GlobalDefs.me Initializo.me Kernel.me Key.me LFdefs.mc LFinit.mc LFkoy.m 
**c LFtask.mc Mesaloccupied.me Mesa2occupied.me MesaJ.mc MesaLS.mc MesaP.mc MesaX.mc Nova.me OccupiedDefs.me Overlay.me RDC.me RDCdefs.mc 
** rs232Async.mc rs232AsyncTest.me rs232Bit.mc rs232BitTest.me rs232Byto.mc rs232ByteTest.me rs232Defs.mc rs232occupied.me RS232SIO.mc rs 
*"'232Test.mc Timer.me UIDefs.me Ullnit.mc UITask.mc XWDefs.mc XWInit.nic XWInit2.mc XWSio.inc XWSio2.mc XWTask.mc AltoBoot.cm AMesa.cm BAMe 
“sa.cin BareBones.cm BDMesa.cm BDMesal.cm BMesal.cm BuildSys.cm DOBoot.cm DMesa.cm ExtantFiles.cm HicroAll.cm MidasDisk.cm rs232Bui1dSB.c 
**ni rs232Test. cm 
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// [Iris]<wdO>MidasD1sk.cm 

II Last modified on August 20, 1979 

// Last editor was Maxion. 

// This command file: 

II will (re)install Midas (loader/debuggor) on your frosli (or present) disk; 

// will (re)'instaVI Swat on your fresh (or present) disk; 

// (Swat is helpful, but not essential.) 

// will handle ONLY Midas and Swat - nothing morel! 

// requires about 510 disk pages to run. 

// Documentation: 

// Self contained and [Ir1s]<wd0>Help-wd0,bravo 

// Get Swat and install it. Also get appropriate Midas files. 

FTP Iris Directory/c <A1to> Retrieve/c Install Swat.run t 

t 

Directory/c <WD0> Rotrieve/c AMesa.midas BAMesa.mh BDMesa.mb BDMesal.mb BMesal.mb Boot.midas DMosa.midas DOLoader.mb Kernel.mb Midas.mida 
**s Midas.prog rams Midas.run User-Midas.prog rams 

InstalISwat 

Delete Ins tall Swat.run 

Delete MidasDisk.cm 

// Initialize Midas. 

Midas/i 


// Delete Dumper.boot if you wish. 

// Delete DMT.boot if you wish. 

// Swat users: Consider obtaining the new file Swat.help. 
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// [Iris]<wdO>rs232Buil dSB.cm 

// Last modified on September 18, 1979 

// Last editor was Maxion. 

// This command file builds software-bootable files for rs232 microcode. 

// Salient outputs from this command file are: 

// rs232Async.sb 

// rs232Byte.sb 

// rs232Bit.sb 

// Documentation: 

// Self contained and [Iris]<wdO>Help-wdO.bravo 

// This command file requires the following files on your disk: 

// [Ir1s]<wdO>Micro.run or [Maxc]<Alto>Micro,run (the microcode assembler) 

// [Iris]<wdO>MicroD.run 

// [Iris]<wdO>MakoLoaderFile.bed 

// [Iris]<wdO>DOLang.mc 

// [Iris]<wdO>rs232Defs.mc 

// and the .me files (default extension) and .mlf files named in the commands below. 

// Assemble rs232occupied.mc 
Micro/u/o rs232occupied 

// Build Asynchronous system: software-bootable file rs232Async.sb 
Micro/u/o rs232Async 

MicroD/n rs232Async/o rs232occupied rs232Async 
MakeLoaderFi1e rs232Async.mlf 

// Build Byte Synchronous system: software-bootable file rs232Byte.sb 
Micro/u/o rs232Byte 

MicroD /11 rs232Byte/o rs232occupied rs232Byte 
MakeLoaderFile rs232Byte.mlf 

// Build Bit Synchronous system: software-bootab 1e file rs232Bit.sb 
Micro/u/o rs232Bit 

MicroD/n rs232Bit/o rs232occupied rs232Bit 
MakeLoadorFile rs232Bit.mlf 
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// [Iris]<wdO>rs232Tost,cm 
// Last modified on June 1, 1979 
// Last editor was BliD. 

// This command file builds RS232 microcode test programs. 

// Salient output files from this command file are the microcode binaries: 

// rs232AsyncTest.mb 

// rs232ByteTest.mb 

// rs232BitTest.mb 

// Documentation: 

// Micro: Machine-Independent MicroAssembler by Fiala, Doutsch, Lampson 
// MicroD Manual by Peter Deutsch 

// This command file requires the following files on your disk: 

// [Iris]<wdO>M1cro.run or [Maxc]<Alto>MIcro.run (the microcode assembler) 
// [Ir1s]<wdO>MicroD.run 

// [Iris]<wdO>rs232Async.mc for asynchronous test only 

// [Iris]<wdO>rs232Byte.mc for byte asynchronous test only 

// [Irisj<wdO>rs232Bit.mc for bit asynchronous test only 

// [Iris]<wdO>rs232Tost.me for all tests 

// ... and the .me files (default extension) named in the commands below. 

// Build Asynchronous Test 
Micro/u/o rs232AsyncTest 
MicroD/n rs232AsyncTest 

// Build Byte Synchronous Test 
Micro/u/o rs232ByteTesl 
MicroD/n rs232ByteTest 

// Build Bit Synchronous Test 
Micro/u/o rs232BitTest 
MicroD /11 rs232BitTest 
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[BRAVO] 

A. INIT:"{G,2,0,4}g'@l 

**00G[@1]{6,2,O,O}1;*lz@@L[177762,177777,]756 

** * -j 1 

**Page numbers: Yes First Page: 1 
Heading: 

***1 ;*h 

*q 

y@@E" 

B. 1NIT: ”{6,2,0,4}g '©lcorif ig 

**@@G[@lconfIg 1 [8,2,0,0}v/ny:lll4 ,yll14,ylll4,{6,4,0,4}g'01errlog 
**00G[01errlog]{6,2,0,0}nBSE" 

C . INIT: " {6,1,0,0}g ' 1 1110 . cm 
**@0G[1ine.cm]@0E" 

D.INIT:"(6,2,0,0}g'©1 

**@@G[@l]{6,2,0,0}wny660,y660,y660,{6,4,0,0}g'@2 
«*0@G[@2]@@£" 

G.INIT:"{6,2,0,6}g'01 

**@@G[@l]{6,2,0,0}h 

*0 

@0E" 


IT. INIT: "{6,2,0,6} g ' @ 1 
**@0G[01]{6 , 2 ,0,0}hc' 02 
**@000'03 
* * 

*q 

@@E" 


J.INIT:"{6,2,0,4}g'@l 
**@@G[@1]{6,2,02,@2}N@@E" 

L. INIT:"(6,2,0,4}g’©Icon Mg 

**@@G[@lconfig |{6,2,0,0}wny 1114 ,y 1114 ,y 1114, {6,4,0,4}g'©lerrlog 

* *@@G [@le rrlog](6,2,0,0}@@E" 

M. INIT: "{ 6 , 2 , 0 , 4 } g' ©lines a 

**@@G[@lniesai{6,2,0,0}wny lll4,yll:L4 ,ylll4, {6,4,0,4}g 1 ©lerrlog 

* *@@G [@le rrlog]{6,2,0,0}@@E" 

N. INIT:”{6,1,0,0}g'@1 
**@@G[@1]@@E" 

S.INIT:"{6,2,0,4}g'@l.mesa 

**@@G[@l.mesa]{G, 2,0,0)1 ; *lz@0L.[ 177762,17777 7, ]756 

* * * i ' 

**Pago Numbers: Yes First Page: 1 
Heading: 

***1;*h 
*q 

y@@E" 


A.QUIT:"{6,2,0,0}1;* 1z@@L[177762, 17 777 7,]756 


**Page Numbers: Yes First Page: 1 
Heading: 

***!; *h 

*g 


B.QUIT:"{6,1,0,0}q 

Delete @4erriog; Binder 7-p @4/g IF.run/r 04errlog then Bravo/B 04 


C.QUIT:"*q 
@00400 


D.QUIT:"{6,2,0,0}q 
BRAVO/D @4 @5 


F.QUIT:"*q 

FTP Iris Store/c @4; Delete @4 @4$ 


G.QUIT:"*q 
Chat 04/D 


M.QUIT:"{6,1,0,0}q 

Delete @4erriog; Compiler -Alto/c -pause/C @4 IF.run/r 04errlog then Bravo/M @4 


N.QUIT:"{6,1,0,0}q 

Delete @4errlog @5errlog; Compiler -Alto/c -pause/c @4 @5; Bravo/M @4; Bravo/M 05 


P.QUIT:"{6,1,0,0}q 

Delete @4errlog; Compiler -pause/c @4; Bravo/M @4 


Q.QUIT:"{6,1,0,0}q 

Delete @4errlog @5errlog; Compiler -pause/c 04 @5;Bravo/M 04; Bravo/M @5 


R.QUIT:"{6,2,0,0}q 
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BRAVO/H 04 

S.QUIT:"*q 

FTP Iris Store/c 04 


T.QUIT:"*q 

FTP Iris store/s 04 ®3>04 


U.QUIT:"{6,1,0,0}q 
V 

Copy temp.ts <- bravo.ts;HRAVO/d user.cm temp.ts 


FONT:0 HELVETICA 8 HELVETICA 10 HELVETICA 0 
FONT:1 HELVETICA 7 HELVETICA 3 HELVETICA 7 
FONT:6 HELVETICA 12 HELVETICA 12 HELVETICA 12 

OFFSET: Standard offset = 4 

TABS: Standard tab width = 635 

LEAD: Line loading = 6, Paragraph leading = 12 

NESTED: Delta left = 635, Delta right = 0 

SCREEN: Screen top = 25, System window end -• 90, Screen bottom = 780 
MARGINS: Paragraph margin = 2998, Left margin = 2998, Right margin =20598 

[HARDCOPY] 

IIOSI: Iris 

PREFERREDFORMAT: PRESS 
PRESS: Daisy 

PRIMTEDBY: "DaleKnutsen" 

EXTENSION: .inesa 
FONT: HELVETICA 10 MRR 

[CHAT] 

BELL: DING FLASH 
BORDER: BLACK 
FONT: GachalO.al 
LINEFEEDS: OFF 
TYPESCRIPT: Chat.ts 10000 
TYPESCRTPTCHARS: OFF ON 

[DOS] 

FONT: Hoi vet icalO.al 
SMALLFOMT: sysfont.al 

CONTEXT: not (*.al or '•.run or ‘•.image or sys* or *.cm* or *.scratch* or dds* or swat* or bravo.*) 
FULLINIT: NO 
SELSPEC: * 

SORT BY: name, extension 
SHOW: si/e 

[TOOLS] 

BITMAP: [x: 64, y: 128, w: 478, h: 400] 

DEBUG: No 

ToolsFont: SysFont.al 
Filellost: Iris 
FileD irectory: <Wpilot> 

[Librarian] 

Sei-ver: Marion 
Root: <CoPilot>Root 
NamePrefix: <CoPilot> 

NameSuffix: mesa 
BcdBticket: [Iris]<WpiIot> 

Def ail I tCon tents Location : [I ris ]<Wpi 1 ot> 

Limpets: pointsto 
Children: comprises <*> 

Levels: 2 
Level Spacing: 32 
Inl.evolSpacing: 16 
NameThru: Yes 
Sideways: True 

[MAILCHECK] 

HOST: Maxc 

NEWMAIL: CHAT 0H MSG.DO/D 
TIME: YES 

[EXECUTIVE] 

Font: Ilelvetical2 

eventBooted: Login // Hi, Dale! 

eventRFC: FTP // eventRFC 

eventlnstall: // eventlnstall 

eventAboutToDie: // eventAboutToDie 

ever.tUnknown : // eventUnknown 

eveutClockWrong: SetTime // eventClockWrong 
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'Last Modified by Sandman on February 23, 1979 11:36 AM 

CUn.TlM[Str, 11]; 

SF.T[/U toMndo , 1]; 
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* MicroD 8.11 (OS 16) of July 1, 1979 

* at 17-Oct-79 11:69:10 

INSERT[OccupicdDef s]; 

TITLE[BAMesaOccupied]; 

* Locations reserved on pago 0 

IMRESERVE[0, 2, 76]; 
IMRESERVE[0, 156, 10]; 
IMRESERVE[0, 173, 4]; 
IMRESERVE[0, 300, 32]; 

* Locations reserved on page 1 

IMRESERVE[1, 0, 400]; 

* Locations reserved on page 4 

IMRESERVE[4, 0, 340]; 
IMRESERVE[4, 341, 1]; 
IMRESERVE[4, 345, 1]; 
IHRESERVF[4, 351, 1]; 
IMRESERVE[4, 365, 1]; 
IMRESERVE|'4, 361, 1]; 
IMRESERVE[4, 365, 1]; 
IMRESERVE[4, 371, 1]; 
IMRESERVE[4, 375, 1]; 
IMRESERVE[4, 377, 1]; 

1 Locations reserved on pago 5 

IMRESERVE[5, 0, 400]; 

* Locations reserved on page 6 

IMRESERVE[6, 0, 363]; 
IMRESERVE[6, 365, 1]; 
TMRESERVE[6, 371, 1]; 
IMRESERVE[6, 375, 1]; 
IMRESERVE[6, 377, 1]; 

* Locations reserved on pago 7 

IMRESERVE[7, 0, 400]; 

* Locations reserved on page 11B 

IMRESF.RVE[ 11, 0, 366]; 

* Locations reserved on page 14B 

IMRES£RVE[14, 137, 241]; 

* Locations reserved on page 16B 

IMRESERVEf15, 0. 376]; 
IMRESERVE[15, 377, 1]; 

* Locations reserved on page 16B 

IMRESERVE[16, 0, 357]; 


END; 
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* MicroD 8.11 (OS 16) of July 1, 1979 

* at 17-Oct-79 11:09:37 

INSERT[Occup1edDet's]; 

TITLE[BDMesalOccupied]; 

* Locations reserved on page 0 

IMRESERVE[0, 100, 233]; 
IMRESERVE[0, 335, 23]; 
IMRESERVE[0, 361, 17]; 

* Locations reserved on page 1 

IMRESERVE[1, 100, 266]; 

* Locations reserved on page 2 

IMRESERVE[2, 100, 242]; 
IMRESERVE[2, 372, 1]; 
IMRESERVE[2, 374, 1]; 
IMRESERVE[2, 376, 1]; 

* Locations reserved on page 3 

XMRESERVE[3, 0, 307]; 
XMRESERVE[3, 370, 3]; 
XMRESERVE[3, 374, 3]; 

* locations reserved on page 7 

IMRESERVE[7, 27, 1]; 
IMRESERVE[7, 76, 1]; 

* Locations reserved on page 10B 

IMRESERVE[10, 0, 363]; 

* Locations reserved on page 12B 

IMRESERVE[12, 0, 3/5]; 

* Locations reserved on page 13B 

IMRESERVE[13, 0, 300]; 

* Locations reserved on page 14B 

IMRESERVE[14, 0, 137]; 

* Locations reserved on page 15B 

IMRF.SE RVE[ 15 , 300, 1]; 

* Locations reserved on page 16B 

IMRESERVE[16, 0, 320]; 

* Locations reserved on page 17B 

IMRESERVE[17, 140, 40]; 

END; 
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* MIcroD 0.11 (OS 16) of July 1, 19/9 

* at 17-Oct-79 11:11:10 

INSERTfOccupicdDefs]; 

TITLEfBDMesaOccupied]; 


* Locations reserved 

on page 

0 

IMRESERVEf 0, 

2, 22]; 


IMRESERVEf0, 

156, 

10]; 

IMRESERVEf0, 

173, 

4] 


IMRESERVE[0, 

300, 

32]; 

* Locations reserved 

on pago 

4 

1MRESERVE('4, 

0, 332] 


IMRESERVEf4, 

335, 

1] 


IMRESERVEf 4, 

341, 

1] 


IMRESERVEf4, 

345, 

IJ 


IMRESERVEf4, 

351, 

n 


IMRESERVEf4, 

350, 

i.i 


IMRESERVEf 4, 

361, 

i] 


IMRESERVEf4, 

365, 

i.i 


IMRESERVEf4, 

371, 

ij 


IMRESERVE[4, 

375, 

ij 


IMRESERVE|"4, 

3 77 , 

i:i 


* Locations reserved 

on pago 

5 

IMRESERVEf5, 

0, 400] 


* Locations reserved 

on page 

6 


IMRESERVEf6, 

0, 324] 


IMRESERVEf6, 

325, 

2] 


IMRESERVEf6, 

331, 

3] 


IMRESERVEf6, 

335, 

3] 


IMRESE RVEf 6, 

341, 

3] 


IMRESERVEf6, 

345, 

3] 


IMRESERVEf6, 

351, 

3] 


IMRESERVEf6, 

355, 

3] 


IMRESERVEfG, 

361, 

3] 


IMRESERVEf6, 

365, 

1] 


IMRESERVEf6, 

3 71, 

1.1 


IMRESERVEf6, 

375, 

1.1 


IMRESERVEf 6, 

377, 

1.1 


Locations reserved 

on page 

7 

IMRESERVEf7, 

0, 360] 


IMRESERVEf7, 

361, 

11 


IMRESERVEf7, 

365, 

11 


IMRESERVEf7, 

371 , 

IJ 


IMRESERVEf/, 

3/5, 

11 


IMRESERVEf7, 

3 77, 

IJ 


Locations reserved 

on page 

1 IB 

IMRESERVEf11 

0, 

316]; 


* Locations reserved on page 140 

IMRESERVEf 14, 137, 233]; 

* Locations reserved on pago 16B 

IMRESERVE[15, 0, 372]; 
IMRESERVEf 15 , 377, lj; 

* Locations reserved on page 160 


IHRESERVE[16, 0, 357]; 
END; 
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insort[d01ang]; 

NOMIDASINIT; l.ANGVERSION; MULTDID ; 

1nsort[GlobaIDofs1; 

% 

* Last modified by Chang, September 11, 1979 0:46 AM, interrupts off problems 

* modified by Johnsson, June 28, 1979 8:50 AM 

* BBTablo format 


* WORD 

* 0 

* 1 

* 2 

* 3 

* 4 

* 5 

* 6 

* 7 

* 10 

* 11 

* 12 

* 13 

* 14 

* 16 

* 16 

* 17 

* 20 

* 21 

* 22 

* 2 3 


NAME 


FUNCTION bit 

0 Long 

I B i tbit.; bits 

14-17 function (see below) 

unused 





DBCA 

Dostinntion 

BCA 

Base Core Address of dest bit map 

DBMR 

Destination 

BMR 

Bit Map Width 

in words 

DLX 

Destination 

LX 

L.eft X offset 

from first bit 

DTY 

Destination 

TY 

Top Y offset from first scan line 

DW 

Destination 

W 

Width in bits 

of bit map 

Dll 

Destination 

II 

Height in scan 

lines of bit map 

SBCA 

Source BCA 




SO MR 

Source OMR 




SLX 

Source LX 




STY 

Sourco TY 




GrayO 


These 

four words are 

the Gray Block 


Grayl GrayO is used on the first item, 

Gray2 Grayl on the second, Gray2 on the third, 

GrayO Gray3 on the fourth, GrayO on the fifth,etc. 

LongSou rcol.o 

LongSou rceili 

LongOostLo 

LongDostlli 


Bit Bl.T functions 


* 

CODE 

MA, 

MB 

SALUFOP 

Dost «- 


♦ 

0 

0 

0 

R OR r 

Src 


* 

1 

0 

1 

R OR T 

Src OR Dost 


* 

2 

0 

1 

11 XOR r 

Src XOR Dost 


* 

3 

0 

1 

R AND notT 

notSrc AND Dost 


* 

4 

1 

0 

R OR notT 

notSrc 


* 

5 

1 

1 

R OR notT 

notSrc OR Dest 


* 

6 

1 

1 

R XNOR r 

notSrc XOR Dest 


* 

7 

1 

1 

R AND T 

Src AND Dest 


* 

10 

0 

0 

XXX 

(Src AND Gry) OR 

(notSrc AND Dost) 

* 

11 

1 

0 

R OR T 

(Src AND Gry) OR 

lies t 

* 

12 

1 

0 

R XOR T 

(Src AND Gry) XOR 

: Dost 

* 

13 

1 

0 

R AND notT 

not(Src AND Gry) 

AND Dest 

* 

14 

0 

0 

R OR T 

Gry 


* 

15 

1 

0 

R OR T 

Gry OR Dest 


* 

16 

1 

0 

R XOR r 

Gry XOI1 Dost 


* 

17 

1 

0 

11 AND notT 

notGry AND Dest 



interpretation of bbFunction bits 


00 

mesa long pointer 

01 

mesa called = 1 / nova called 

02-05 

unused 

06 

hot to top = 1 / top to hot =0 

07 

r lo 1 = 1 / 1 to r = 0 

10-12 

which-innorioop index 

13 

7.e ro 

14-17 

Bitbit function code 
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•dispatch tables for bitbit 

SF.Tf BBP1P , I.SHIFTf BBP1,10]]; 

SEI | I1BP2P, LSITIFTf BBP2,10]]; 

SET| BBTI.A , ADDfBBPlP, 100]']; 

SETfBBILB, ADOfBBPlP,120]]; 

SETfBBILC, ADDfBBPlP,140]]; 

SETfBUILD, ADDfBBPlP,100]j; 

SETfBBILE, ADDfBBPlP,200]]; 

SETfBB.II.DX, ADDfBBPlP,220]]; 

SETfbbldisp,ADDfBBPlP,240]]; 

SETf U11F, ADDf BBP2P, 340]]; 

* BBFA dispatch values 

sotfBBNRM,7]; *no refill 

sotfBBDST,6] ; •destination refill 

setfBBSRC,5]; *source refill 

sotfBBBTH,4]; ‘source and destination refill 

sotfBBITM,3]; ‘item refill 

setfbbILtypoO, 00]; 

selfbbILtypel, 02]; 

setf bb!Ltype2, 04]; 

setfbbILtypeS, 06]; 

setfbbILtypel, 10]; 
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% Initialization 

* * determination of bit bit directions 

* (top to bottom , left to right) dt,y < sty 

* (top to bottom , right to left) (dty - sty) and (dlx > six) 

* (bottom to top , loft to right) ((dty - sty) and (dlx -< six)) 

* or (dty > sty) 


0NPAGE[BBP2] ; 
bbpZret: return; 


«//«****** Start of Alto Code ******************************************** 

NovaBitDLT: *AC2,AC3 are a base register pointing to the BitBLT table 

ACO <- 21c, task; *Stkp points to ICOM in AC1 

Stkp «- ACO; 

ACO *• Oc, goto[bbBitBLT]; *AC0 is the "entered from Nova" flag 
En(J of Alto Code ******* # * * * * * i* *****:>*** ******#!** * * * ****** i* * # * 

MesaBitBLT: 1u *■ xfWDC; *T has address of table 
ski p[ALlH0]; 

NWW <- (NWW) or (100000c); ■•disable interrupts in xfWDC//0 
AC2 <• T; 

r <- MDShi, task; 

ACO *- T; ‘long pointer to BitBLT table in AC2.AC3 

ACO «- 40000C, goto[bbBitBLT]; 

•get bore when finished, with test of "entered from Mesa" flag pending 
hbFx i t: 

•7/»****** Start of Alto Code **»»**•*»****•**»*****••*»*»**««**•♦***»♦•♦* 
dblgoto[bbMdone .bbNdone , ALU//0] ; 

•//*•***** End of Alto Code *»*«***•**»*•**»****»****♦*******»*****«♦***•* 

* bhMdone: loadpage[4]; 

• stack&-2, gotop[MesaBUret"]; 

bhMdone: stackit-2, I oadpage[4J; 

NWW <- (NWW) and not (100000C), gotop[MesaBBret]; 

*#***•••* Start of Alto Code ******************************************** 
bbNdone: 1oadpage[nePage]; 

gotop[neNosk ip] , fFl@[17]; 

•//*♦•**•* End of Alto Code ** • **i*«*•**»••••*••*•*•***•****«***•»*****•** 

•common bitbit code 
bbBITBI. E: 

pfetch l[AC2,bbFunction,0], cal 1[bbp2 ret];* fetch function 
pfetch2[AC2,bbRTEMslx,12],task; •fetch six and sty 
bhSrcQAddrLo <- zero ; 

pfotch2[AC2,bbRTEMdl x',4]; *fetch dlx and dty 

t <(17 c), task; 

t«-( lsh[AC0,l J)or(t); 

pfotch?[AC2 , bbT. temWidlh ,6] , cal 1 [ bbp2 ret ];* fetch dw and dll 

bbFunct ion*-( bl)Function)and( t); ‘Insure no garbage and mask bit 0 if entered from Nova 
t*(AC0); 

task, bbFunct ion<-( bbFunct ion )or( t) ; •"called from Mesa" bit 
t <- 1 df [bbFunct ion , 14,2] ; 
lu <- bbltemW idth; 

I1TEMP<- T , sk ip[alu//0]; 

lu <• 1 d f [bbFunct ion , 1,1] , goto[bbF.x i t] ; ‘Completion return - item width is zero 
RTEMP<-t; 

lu <- (RTEMP) xor (3c) ; 
skip[alu//0] ; 

gotofbbTB] , bbSrcQAddrEo <- (lc) ; •if function is 14-17, source not used,use tblr 

T <- bbRTFMdty; 

LU <- (bhRTEMsty) - (T) ; *calc sty - dty 

GOTO[bbBT1,alu<0],freezeresult; 
bbA3 : GO f0[ bbTB, AI.U//0] ; 

bbA4: T <- bbRTEMdlx ; 

I.U <- (bbRTEMslx) - (T) ; *calc six - dlx 

DULGOTO[bbTBRL,bbTBLR,ALU<0] , t <- Stack; 
bbBTl: GOTO[bbBTLR] ,t *- Stack; ‘bottom to top , left to right 

bbTB: GOTO[bbTBLR] ,t <- Stack; ‘top to bottom , loft to right 
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* for loft to right , top to bottom 

* specific initialization 

* sty sty + icom 

hbTBLR: 

bbHTEMsty <- (bbRTEMsty) + (T); 

GOTOp[bbGon1 Ini t] , bbRTEMdty <- (bbRTEMdty) + (T) ; 

* for loft to right , bottom to top 

* specific initialization 

bbBTLR: 

task,!' <- (bblteriisRemaiiiing) - (T) - 1 ; 
bbRTEMsty <- (bbRTEMsty) + (T) ; 
bbRTEMdty <- (bbRTEMdty) + (T); 

GOTOp[bbGonl In it] , bbFunction<-(bbFunction)or( 1000C); "set L to R bit 

* for right to loft , top to bottom 

* specific initialization 

bbTBRL: 

bbRTEMsty (bbRTEMsty) + (T) ; 

task,bbRTEMdty <- (bbRTEMdty) + (T) ; 

t r bbRTEMslx ; 

t <- ( bbRTEMdl x) - (t); 

bbSDNonOvo r I ap «- t j 

lu <- 1 df |' bbSDNonOvcrl ap , 0,12] ; 

skip[a lu//0"|, bbM iiuisSDNonOvorl ap<-( zoro) -(t); 

goto[bbGenl Ini t’J; *L to R if non-overlap < 100b 

lu I df [bbltemW id th , 0,12 ] ; 

skip[alu//0] ; 

gotoj'bbGonlTnit]; *L to R if item length < 100b 
lit <- (bbl tomWidth) - (t) ; 
skip[carry]; 

goto[bbGen 1 Init'|; *L to R if item width < non-overlap 
GOTOfbbCen1 Initj , bbEunction< (bbFunction)or(400C) ;*R to L 
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* general initialization 

* calc ss 

* ss (lsh[4](sbca + (sty * sbmr)) + six) 24 bits 

bbGenltni t: 

skip[r even] , lu «- bbSrcQAddri.o ; 
goto[bbinnosrc], pfetch2[AC2.bbDBCA,2]; 
pfetch2[AC2,bbSBCA,10 | ;*fetch sbca and sbmr 
go to[bbLongSrcGet,r<0j,1 iKbbFunction; 
bbShortSrcGet: 

t<- bbSBCA; 

call[bbp2 rot], bbSrcQAdd rLo«-t; 

goto[bbSrclnit],bbSrcQAddrll i«-(zero); *short form set up 
bbl.ongSrcGet: 

t*-20c ; 

cal 1 [bbp2 ret] , pf etch2[AC2 , bbSrcQAdd rLo] ; ‘long fo nri set-up 

*T «- sty * sbmr. The product is =< 16 bits 
bbSrcInit: 

T <- bhSBMR; 

RTEMP <- T; 

r <- 0c, cal 1 [bbSrcMul ]; 

bbSrcMul : RTEMP <- rsh[ RTEMP , l] , goto[.+2,Reven]; 

T *■ (bbRIEMsty) + (T); 

bbRTEMsty <- 1 shfbbRTEMsty, 1], goto[.+2, ALU=0]; 
return; 
bbSrcMulDone: 

bbSrcQAdd rLo*-(bbSrcQAdd rLo) + (t); 

sk ipfnocarry] , t*-l sli[bbSrcQAdd rLo , 4 |; "move SrcQAddr to SrcStartBit 

bbSrcQAdd rll i <-( bbSrcQAddrll i) i-l; 

bbSrcStartBi tt.o* t; 

t«-rsli[bbSrcQAddrl.o , 14 |; 

task , t*-( 1 s h[bbSrcQAdd rll i, 4]) 1 -(t); 

bbSrcStartB i til i«-t; 

t<bbRlEMslx;*add six to SrcStartBit 

bbSrcStarlBitLo*-(bbSrcStartBitLo) + ( t); 

skipfnocarry]. bbSrcQAdd rLo*(bbSrcQAddrLo)and not(3c); 

bbSrcStartBitlli<-(bbSrcStartBi tili) + l; * SrcStartBit now complete 

* calc ds 

* ds (lsh[4](dbca + (dty * dbmr)) + dlx) 24 bits 

pfetch2[AC2,bbDBCA,2];*fetch dbca and dbmr 

bbinnosrc: 

go tofbbShortDestGet, r>=0] , lu«-bbFunc t ion; 
bbLongDestGct: 

t<-22c; 

go to[bbDes tin it] , p fetcli2[AC2 , bbDos tQAddrLo |; 
bbSiio rtDos tGet: 

t< bbDBCA; 

task , bbDestQAddrLo<-t; 

bbDes tQAddrlli< ( zero); ‘short form set-up 
*T <- dty * dbmr. 16-bit product 
bbOestlnit: 

r <- bbDBMR; 

RTEMP *- T; 

I «- 0c, cal 1 [bbDestMul ] ; 

bbDestMul: RTEMP <- rsh[ RTEMP , 1] , goto[.+2, Reven]; 

T <- ( bbRTEMdty) + (T ) ; 

bblTVEMdty *- 1 sh[bbRTEMdty , 1], goto[.+2, ALU-0]; 
return; 

bbDestMulDone: 

bbDes tQAdd rLo<-( bbDes tQAdd rLo) + (t) ; 

skipfnocarry],t« IshfbbDestQAddrLo,4];*movo DestQAddr to DestStartBit 

bbDes tQAdd rH i<^ (bbDes tQAdd i'll i ) + l; 

bbDestStartBitLo<-t; 

go to[ . +1] , tt-rshf bbDes tQAdd rLo , 14] ; 

t»-■( 1 shf bbDes tQAdd rll i ,4 ]) + (t) ; 

task, bbDos tStartBitil i<-1; 

t<bbRTEMdlx;*add dlx to DestStartBit 

bbDestStartBitLo<-(bbDestStartBi tl.o) + (t); 

sk ip[uocarry],t <- bbltemWidth; 

bbDestStartBi tH1<-(bbDes tStartBitHi ) + l; * DestStartBi t now complete 
bbMinusItemWidth <- (zero) - (T) ; ‘want minus item width 

* test for specific initialization (bottom to top) 

1 u<-l df [bbEunct ion , 6,1] ; 

gotofbbILXO,alu=0] ; 

* tills will go to bbilxO if t to b 

* or bbilxl if b to t 

bbll.Xl: t «• bhSBMR ; 

task.bbSBMR «- (zero) - (t) ; 

t <- bbDBMR ; 

bbDBMR «- (zero) - (t) ; 

bbILXO: 

T <- (Stack); 

bbltemsRemainingMinusl <- (bblteinsRemaining) - (T) - 1 ; 

skip[alu> = 0] , bbrtoinsRcmainingMinus2 <• (bbltemsRemainingMinusl) - 1 ; 

lu <- 1 d ffbbFunc tion , 1,1], gotofbbExit]; ‘Completion return - no items remaining 

bbGrayCnt <- T ; 

skipfr even] , lu <- bbSrcQAddrLo; 
goto[.+2] . SB «- bbDestStartBitLo ; 

SB *■ bbSrcStartBitLo ; 
task.DB f- bbDestStartBitLo ; 

MNBR <- bbMinusItemWi dth; 

bbfd; DISPATCHfbbFunction,14,4] ; 

DISPfbbFUNOO] ; 

* will dispatch to bbfunN for function N 
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bbFUNOO: goto[bbEndInit] , T *- (2040) , AT[BBF,0] ; *salufop <■ [0,0, r or t] 

bbFUNOl; got.ofbbFndln it] , T <- (3040) , AffDBF, 1] ;*salufop <• [1,0,r or t] 

bbFUNOZ: goto[bbF.ndTnit] , T <- (3630) , AT[BBF, 2 j ;*salufop <- [1,0,r xor t] 

bbFUN03: go tof bbEndln i t] , T <- (327C) , AT[BBF,3] ;*salufop *- [1,0,r and not t] 

bl)FUM04: gotofbbEndlnit] , T <- (0740) , AT[BBF,4] ;*salufop <- [0,1,r or not t] 

bbFUNOO: gotofbbEndln it] , T *• (1040) , AT[BBF,6] ;*salufop <- [l,l,r or t] 

bbFUNOO: gotofbbFndlnit ] , T *- (1540) , AT[B0F,6J ;*salufop <- [1,1, r xnor t] 

bbFUN07: gotof bbEndlnit] , T «• (150C) , AT[BBF,71 ;*sa1ufop «- [1,1, r and t] 

bbFUMlO: T «• ( POOC) , AT[BB F, 10 J ; ’salufop [ x, 0 , x ] 

goto[l)bEndInif] , bbFunction (bbFunction) OR (400) ; *type 1 transfor 
bbFUNll: T «• (304C ) , AT[BBF, 11] ; *saiuFop <- [1,0, r or t] 

GOTO[bbEndInit] , bbFunction <- (bbFunction) OR (100C) ; *typa 2 transfer 
bbFUN 12: T <- (3G3C) , AT[i!BF,12] ; "salufop <- [1,0,r xor t] 

GOTO[bbEndInit] , bbFunction «- (bbFunction) OR (100C) ; '•typo 2 transfor 
bbFUN 13: T <- (327C) , AT[BBF,13;| ; *sa1ufop «- [1,0,r and not t] 

GOTO[bbEndInit] , bbFunction <- (bbFunction) OR (100C) ; *type 2 transfor 
bbFUN 14: T ♦- (204C) , A F[BBF , 14 j ; *salufop «- [0,0.r or t] 

G0T0[ bbEndln it "J , bbFunction *■ (bbFunction) OR (200C) ; '"type 4 transfer 
bbFUN 15: T (3040) ,. AT[BBF , 15] ; •salufop «- [1,0, r or t] 

G0T0[bbEndln1t] , bbFunction *- (bbFunction) OR (140C) ; ’type 3 transfer 
bbFUN 16: T <- (363C) , Af[BBF,10] ; ’salufop <• [1,0,r xor t] 

GOTO[bbEndInit] , bbFunction «- (bbFunction) OR (140C) ; ’type 3 transfor 
bbFUN 17: T «- (3270) , AT[I1BF,17 J ; "salufop <- [1,0, r and not tj 

G0T0[bbF.ndIn1t] , bbFunction <- (bbFunction) OR ( 1400) ; *type 3 transfer 

bbEndlnit: 

1.0ADPAGE[BBP1] ; 

G0T0P[bbFi rstltem] , saluf <- t; 





BitBlt.mc 


3-Nov-79 19:15:53 


Page 7 


ONPAGEfBBPl] ; 

* Inner loops 

* functions 0-7 

bbtnnorLoops: 
hbILAlZ: 

call[.+1] , ATfBBIDISP,bbll.type0] ; 

DULGOTO[bbILA2 , bb11 AX, MB] , 

T < (BBFA[SB[bbSOURCF.]j) or (t) ; 

bbILAZ: DISPfbbll.Al] , DBfbbDEST] <• (BBFBXfDBfbbDEST]]) SALUEOP (T) ; 
bbXLAX: DISP|'bbT.l.Al] , DBfbbDEST] (BBEBfDBfbbDES I ] ]) SAl.UFOP (T) ; 

bbILAl: return , ATfBBILA,BBNRM] ; 

% bbilaZ wil1 go to 

* bbilal no refill requirod 

* bbilas source refill required 

* bbilad dost refill required 

* bbilasd source and dost refills required 

* bbilai item refill requirod 


bbXLB1: 

cal If.H] , ATfBBIDISP.bblLtypol] ; 

T <- (BBTAfSBfbbSOURCE]]) or (t) ; 

bblLBZ: DISPfbbILB3] , RTEMP <- T ; *G copies of the following code are 

* required to save the dispatch data 
•from the BBFA executed previously 

7- bbilbZ will go to 

* bbili)3 no refill requirod 

* bbilb3s source refill required 

* bbilb3d dost refill required 

* bbilb3sd source and dost refills required 

* bbilb3i item refill required 

% 

bbILB3: DBfbbDEST] <- (DB[ bbDEST j) AMD NOT(T) , ATfBBILB , BBNRM] ; 

T <- RTEMP' ; 

T <• (bbGRY) AND (T) ; 

bbll.BG: return , DB[bbDE.ST] «- (BBEB[DB[ bbDEST] ]) Oil (T) ; 

bbILB3S: DBfbbDEST] <- (DBfbbDEST]) AND NOT (T) , AT[BBILB, BBSITC ] ; 

T <- RTEMP ; 

I <- (bbGRY) AND (T) ; 

bbILBGS: GOTOfbbILBS] , DBfbbDEST] <- (BBFBfDBfbbDEST]]) OR (T) ; 

bbII.B3D: DBfbbDEST] <- (DBfbbDEST]) AMD NOT (T) , ATfBBILB , BBDSTl ; 

calif bb tg ry ], T «- RTEMP ; 

bbILBGD: GOTOfbbILBD] , DBfbbDEST] <- (BBFBfDBfbbDEST]]) OR (T) ; 

bbll.BGSD: DBfbbDEST] <- (DBfbbDEST]) AND NOT (T) , ATfBBILB, BBBTH] ; 

calIfbbtgry],T <- RTEMP 

bblLBGSD: GOTOfbbILBSD] , DBfbbDEST] <- (BBFBfDBfbbDEST]]) OR (T) ; 

bbTI..B3T: DBfbbDEST] <- (DBfbbDEST]) AND NOT (T) , ATfBBILB, Bn 1TM] ; 

cal Ifbbtgry], f <- RTEMP ; 

bbILBBI: GOTOfbblLBT] , DBfbbDEST] *- (BBKBfDBfbbDEST]]) OR (1) ; 

bbtgry: 

T <- (bbGRY) AND (T), return ; 






0 i till t.mc 


3-NOV-79 19:15:53 


Page 8 


functions 11-13 


bblt.Cl: 


bbXLC2: 
bbILC3: 
% 


% 

* 


call[. + l] , AT[BBXDISP, bhILt.ype2] ; 

T <- (BBI-'Af SB[bbSOURCE'|]) or (t) ; 

DISP[bbILC3j , T <- (bbGRY) AND (T) ; 

return , DB[bbDEST] <- (BBFBX[DB[bbDEST]]) SALUFOP (T) , AT[BOXLC .BBNRM] ; 
bb i Ic2 will go to 

bbilc3 no refill required 

bbilcOs source refill required 

bb i 1 c3d dest refill required 

bbilcSsd source and dest refills required 

bbilc3i item refill required 

functions 14 


bbll.F.lx: 

call [ . +1] , AT[DBIDISP , bbILtype4] ; 

T <- (BBFA[A'I lOnes'j) ; 

bbILF.3: D[SP[bbILE4] , T r (bbGRY) and (t) ; 

bbTLE4: return , DB[bbDEST] <- (BBFB[DB[bbl)EST]]) SALUFOP (T) , AT[fil3ILE,BBNRM] ; 
% bbi1e3 wi1 I go to 

* bbilo4 no refill required 

* bbllo4s source refill required 

* bbileld dost refill required 

* bbile4sd source and dest refills required 

* bbiloii item refill required 


* functions 15-17 
bbIl.Ul: 

call[.H] , ATfBBXDISP, bbILtype3] ; 

T < BBFAfAlI Ones] ; 

bbIL.D3: DISP[bbILD4] , T <- (bbGRY) AND (T) ; 

bblLD4: return , DBfbbDEST] *- (BBFBX[DB[bbDEST]]) SALUFOP (T) . AT[BBIl.D.BBNRM] ; 

% bbild3 will go to 

* bbild4 no refill required 

* bbild4s source refill required 

* bbildld dest refill required 

* bbild4sd source and dest refills required 

* bbild4i item refill required 

% 
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♦Source refill 
bbSourceRofi11: 
bbILOS: 

bblL.AS: DBLGOTOfbbNoSrcFetch,bbSrcFotcb, R ODD] , bbSrcQAddrl.o ♦- (bbSrcQAddrl.o) r (4C) , AT[BBILA,BBSRC] ; 
bbILC3S: GOTO[bbSou rceRofi11 ] , DBfbbDEST] <• (BBFflXf DB[bbOEST |] ) SAI.UFOP (T) , ATfOBILC, BBSRC] ; 

bbILD4S: GOTOfbbSourceRof i 11] , DBfbbDEST] *• (BBFBX[DB|' bbDEST] |) SAI.UFOP (T) , AT[ BUILD, BBSRC] ; 

bbILC4S: GOTO[bbSourcellef i i i ] , DBfbbDF.Sr] *- (BBFB[DB[bt)DES I]] j SALUFOP (T) , AT [ lift ILE , BBSRC] ; 

bblLrot: 
bbMoSrcFotch: 

return ; 
bbSrcFotcb: 

go to[.>3,nocarry]; 

bbSrcQAddrH i<-(bbSrcQAdd i ll i) + (400c ) + l; 

nop;*r.an't load hi base rog In in-1 preceding a memory operation 
PFF.TCH4[bbSrcQAddrLo , bbSOURCE, 0] , return ; 

♦Dost refill 
bbDos tRcf ill: 

nop; 

bbDostRofillx: 

GOTOfbbDustFetch] , PST0RF.4[bbDestQAddrLo , bbDEST , 0] ; 

hblLBD: 

bbXLAD: GOTOfbbDostRcfillx] , AT[BBILA,BBDST] ; 

bbILC3D: GOTOfbbDestRefill] , DBfbbDEST] <- (BBF'BX[DB[bbDEST]]) SALUFOP (T) , ATfBBILC,BBDST] ; 

bbILD4D: GOTOfbbDestRofi 11 ] , DBfbbDEST] <- (BBFBX[DB[bbDEST]]) SALUFOP (T) , AIf'lJBILD,BBDST] ; 

bbILE4D: GOTO[bbDestRefi 1 I] , DBfbbDEST] <- (BBFB[DB[bbDEST]]) SALUFOP (T) , ATfBBILE.BOOST] ; 

bbDestFetch: 

bbDestQAddrLo «■ (bbDestQAdd rl.o) + (4C); 
goto[.+3,nocarry]; 

bbDestQAddrll i*-( bbDest QAddrlli )r(400c)+l; 

nop; "can't load hi baso reg in in i preceding a memory operation 
gotofbb ildisp] , PFCTCII4[ bbDos tQAdd rLo , bbDF.ST, 0] ; 





BitBlt.mc 


3-NOV-79 19:15:53 


Pago 10 


* Source and Dost refill 

bbSrcDest fief i 1 I: 
bhILBSD: 

bbTLASO: DRIC0T0[bbDestRefi11,bbSrcDestFetch , R ODD] , bbSrcOAddrLo «- (bbSrcQAddrLo) + (4C) , AT[RBILA, BB8TH] ; 

bbILC3SD: GOTO[ bbSrcDest Re f i'll j , DB[bbDEST] <- (BBIUX[DB[bbDEST]]) SAI.UFOP (T) , AT[RBIL.C ,BBBTM'| ; 

bbILD4SD: GOTO[ bbSrcDest Ref i 11 ] , DBfbbDEST] <- (BBFBX| OBfbbDEST]]) SALUFOP (T) , AT[BBI LD, BBBTII] j 

bb II.E4SD: GOTO[bbSrcDestRof il l] , DO[bbDEST ] <- (BBEB[DB[bbDEST]]) SALUFOP (T) , AT[BBILE,8BBTUJ ; 

bbSrcDostFetch: 

go to[.+3,nocarry]; 

bbSrcQAddrH i«-(bbSrcQAddrH1) + (400c) + l; 

nop;*can't load hi base reg in in-1 preceding a memory operation 
PFF.TCH4[ bbSrcQAdd rlo , bbSOURCE, 0] , goto[bbDestRofill] ; 
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Common return to inner loops 


bbILDISP: 


% 


call[bbll.rot‘1 , BBFB ; 
DISPATCflfbbFimct ion, 10,4] 
DISP[bbInnerLoops] ; 

depending 
type 0 bbilalz 
type 1 bbilbl 
typo 2 bbilcl 
typo 3 bbildl 
type 4 bbilelx 


X 


upon the loop typo this will go to 
function 0-7 
function 10 
function 11-13 
function 15-17 
function 14 
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* Item refill 

* test if right to left or left to right 
bbltemRcfill: 

hi) I LB I: 

bbILAI: GOTOfbbILI] . lu< 1 df[bbFunction , 7,1] , AT[BBILA,BBITM] ; 

bblLCOI: GOTO[bbIteniRef ill 1 , DBJ'bbEJEST] *- (BBFBX[ DB[bbDEST]]) SALUFOP (T) , AT[BBILC,BBITM] ; 

bbILDAI: GOTO[bbI tornRof ill] , D0[bbDEST] (BBFBX[DB[bbDEST j]) SALUFOP (T) , AT[BBILD,BBITM] ; 

bbILE4I: GOTO[ bbltcmRef ill] , DB[bbl)EST] <- (BBFB[DB[bbl)EST] |) SALUFOP (T) , AT[BBILE .BBITM] ; 


bbl LI: 


goto[b!>ContRtoL,alu//0] ; 
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* common item refill 

bbCoinl temRef ill: 

ps tore4[bbDes tQAddrLo, bbDEST ,0] ; 

call [bblLrot], stack «- (stack) + 1 ;*update icom (TOS if called by Mesa, AC1 if called by Nova) 
G0T0[.+3,R >- 0] , bbltemsRemainingMinus2 <- (bbl tcmsliomai 11 ingM inus2) - 1 ; 
bl)Exitpl: LoadPago[bbp2]; 

lu «- Idf[bblunction,1,1], gotop[bbExit]; ‘Completion return 
‘Test for interrupts 

lu <- NWW, s ki p[ R> r -0’|; 

dblgotofbbDestUpdate,bbSrcUpdate,R ODD], 1 u<-bbSrcQAddrLo; ‘Interrupts disabled by Nova 
skip[ ALU//0] , 1 u <- 1 df | bbfunc t ion , 1,1] ; 

dblgoto[bbOostUpda te , bbSrcUpdate, R ODD] , 1 u«-bl)SrcQAddrl.o; 

*//****•*• Start of Alto Code *»**»***»****»**»*•»*»»♦**•»*»*«*«»»*»*♦•**** 
dblgoto[bbMesalnt, bb No vain t, ALIJ//0] ; 

*//****# + # £ |uj Qf‘ /\T^o Code + i* * * * + ***** •+ + ***>* ik * ***iRinm****#*!»** 

bbMosalnt: LoadPago[opPago3]; 

T <- 1c, callp[MIPend]; ‘back up the Mesa PC by 1 
dblgoto[bbDos tUpdate , bbSrcUpdate , R ODD], 1 u*-bbSrcQAddrLo; 

“'Since we aro now in a subroutine, and since the Nova only 
"checks for interrupts at buffer refill and during jumps, 

"things are complicated. We simulate a JMP ; +0 

"//**»»*"* Start of Alto Code ********************************************* 
bbNovalnt: T <- ldf[GETRSPEC[127], 15,2]; 

LoadPage[nePage]; "Point the jump-to PC at the BitBt.T 
T <- (PCB) + (T) , gotop[JMP]; 

*//""***** End of Alto Code *********«*•******•**•****»*•*********••****«« 


bbSrcUpdate: 

skip[r> = 0],t «- lsh[bbSBMR,4] ; 
bbSrcStartB 1 tili«-(bbSrcStartB itlll) - (20c); 
bbSrcStartBi tLo «• (bbSrcStartBi tLo) + ( t) ;' 
skip[nocarry] , t<-rsh[bl)SBMR, 14] ; 
bbSrcStartBitlli <- (bbSrcStartBitil i) + 1 ; 
bbSrcStartBitlli <- (bbSrcStartBitlli) + (t); 

bbDestUpdate: 

skip[ r> = 0] , t <- 1 sh[bbDBMR , 4] ; 
bbDestS'tartBi tlli«-( bbDostStartBi till) -(20c) ; 
bbDostStartB itLo <• ( bbDes tSt ar to i tLo) " (t) ; 
sk ip[noca rry ], t<-rsh[ bbDBMR, 14] ; 
bbOestStartBi til i «- ( bbDes tStartBi till) + 1 ; 
bbDes tStartBi til i <- (bbDes tStartBi til i) + (t); 

bbFirstltem: 
bbTouchSourcePages: 

cal 1[bblLrot];"task switch 

GOTO[bbToucbDestPages , R ODD] , 1 u<-bbS rcQAdd rLo ; 
t«-(bbMi nusIteniWid tli)-»-1; 

RTEMP*-( zero) -(t); 
cal 1[bbSe tbbSQA]; 

t<-(bbSrcStartB i tLo) and not (170000c); 

RTEMP<-( RTEMP) * (t); 
skip[carry], RTF.MP<-rsh[RTEMP, 14]; 
gotofbbTSPl]; 
sk ip[a 1 11 //O] ; 

RTEMP<-( 20c) ; 


bbTSPl: 

t«-RTEMP<-l s h[ RTEMP , 10] ; 

cal l [ . H] ; *avoi d mein pass-around 

pfeteh4[bbSrcQAddrLo,bbSOURCE]; 

t<-RTEMP"( RTEMP ) - (400c) ; 

skip[alu<0]; 

return; 

nop; 

bbTouchDestPages: 

t *- (b b M i iuisIteniWidth)+l; 
RTEMP<-(zero)-(t); 
call[bbSetbbDQA]; 

t<-(bbDestStartBitLo) and not ( 170000c); 

RTEMP«-( RTEMP ) + (t) ; 

skip[carry], RTEMP"-rsh[RTEMP, 14]; 

goto[bbTDPl]; 

skipf alu#0]; 

RTEMP<-( 20c); 


bbTDPl; 

t"-RTEMP<-ls h[ RTEMP, 10]; 

call[.+1];"avoid mem pass-around 

pfetch4[bbDes tQAdd rLo,bbDEST]; 

t<-RTEMP<-( RTEMP)-(400c); 

skip[alu<0]; 

retu rn; 

bbNewGry: 

lu*-ldf[bb Function,14,1]; 

goto[bbNoGray, alu = 0] ,MNBR <- bbMinusIteniWidth ; 
t*-(AC2) +(14c) ; 

lu <- ldf [bbFunct ion , 1,1]; ""called from Mesa” bit 
dblgoto[NovaGra.y,MesaGray ,ALU=0], t«-(ldf[bbGrayCnt, 16,2])+(t); 
NovaGray: pfetchl[Nova,bbgry], goto[.+2]; 

McsaG ray: Pf etchl[MDS,bbg ry] ; 

bbG rayCnt*-(bbG rayCnt ) + l; 
bbMoGray: 

SB*-bbSrcStartBi tLo; 
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skip[r even],1u<bbSrcQAddrLo ; 
SB <- bbDostStartBi tLo ; 

DQ< bbDos tStartBitLo; 

Iu<-1 dff bbP unction , 7 , 1] ; 
skipf alu//0] ; 

BOTO[bbILDISP] ; 
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bbNowRtoL: *now item right to left 

t< bbM imisSDNonOvo rl ap ; 
task , bbM i nusNuiiiB i lsTran<-t ; 
t<-HNBR<-bbMimisNuinB i tsTran ; 
t<-(bbMi nusl temWidt h) -(t) ; 
cal 1 [bbILret], bbM inusBitsRemaining «-t; 
bbSourceBitUpdate: 

go to[bbOes tB it Update,r odd] , 1u<-bbSrcQAdd rLo ; 
bbSrcStartBitLo (bbSrcStartBitLo) - (t) ; 
skip[nocarry] ; 

bbSrcStartB i till *- (bbSrcStartBi til l) + 1 ; 

RTEMP*-t; 

ca 11[bbSetbbSQA]; 
tHITEMP; 

SB*-bbSrcStartB i tl.o: 
bblles tBi tUpdate : 

bbDestSta r-tB i tLo *- (bbDest.StartB i tLo) - {t) ; 
skip[nocarr,y] ; 

bbOes tStar tOitll i <■ (bbDostStartBitll 1) *• 1 ; 
go to[ bbGe tNux t Sub Item] 

bbContRtoL: "continue item right to loft 

t <- bbM inusBi tsRemaining ; 

skip[a'lu//0] , lu <- (bbMinusSDNonOvc'rlap) - (t) ; 
GOTO[bbComitemRofiII] ;‘current item exhausted 
s kip[noca rry],PSTORE4[ bbDes LQAddrLo,bbDEST,0]; 
t <■ bbMinusSDNonOverlap j 
bbMinusNuniBi tsTran <- t ; 

task , bbMinusBi tslloiiiaining «- (bbMinusB itsRomain ing) - ( t) ; 
mnbr <- bbM inusNumBitsTran ; 

* adjust source and dest bit addresses for next sub item 

goto[bbrlskip,r odd], 1 u<-bbSrcQAddrLo; 
t «- bbMinusNumB itsTran ; 

bbSrcStartBitLo <- (bbSrcStartBitLo) + (t) ; 
skip[carry] ; 

bbSrcStartBi till <■ (bbSrcSta rtB i tili) - 1 ; 
call[bbSe tbbSQA]; 

SB<-bbSrcStartBi tLo; 
bb rl skip: 

t bbMinusNumBitsTran ; 

bbDestStartBitLo *■ (bbDestStartBitLo) + (t) ; 
skip[carry] ; 

bbDestStartBi tlli <- (bbDestStartBitHi) - 1 ; 
bbGetNoxtSubltem: 

ca11[bbSetbbDQA]; 

skip[r even],1u<bbSrcQAddrLo ; 

SB *- bbDostStartBitLo ; 

DB<-bbDes tStartBitLo; 
pfetch4[bbDostQAddrLo,bbDEST,0] ; 
skipfll ODD] , lu <- bbSrcQAddrLo ; 
pfe Lch4[bbSrcQAdd rLo , bb SOURCE , 0] ; 

GOTOfbbILDISP] ; 
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bbSetbbSQA: ■'build source mem-base from source bit 

t*-rsh[bbSrcStartBi tLo, 4] ; 
bbSrcQAddrLo «- t ; 
t< lsb| bbSrcStartD itlii, 14] ; 
bbSrcQAddrLo *- (bbSrcQAddrLo) + (t) ; 
t< rsh[ bbSrcStartBitlli ,4] ; 
bbSrcQAddrHi «- t ; 

bbSrcQAdd i'll i<-( 1sh[bbSrcQAddrHi ,10]) + (t) + 1 ; 
return,bbSrcQAddrLo (bbSrcQAddrLo) and not (3c) ; 

bbSetbbDQA: ■'build dest mem-base from dost bit 

t<- rsh[bbDes tSta rtBi tLo ,4] ; 
bbOostQAddrLo *■ t ; 
t« l s h|bbDestStartQ i tili ,14] ; 
bbOostQAddrLo *• (bbOostQAddrLo) + (t) ; 
t*-rsb[bbDostStartBitli 1,4] ; 
hbOes tQAddrhi <- t ; 

bbDostQAddrHi*-( 1 shf bbDestQAddrll i, 10]) + ( t) + l ; 
return,bbOostQAddrLo <- (bbDestQAddrl.o) and not (3c) ; 


end| bb]; 
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* MIcroD 0.11 (OS 16) of July 1, 1979 

* at 17-Oct-79 11:07:40 

IMSERTfOccupiedDofs]; 

TITLF.f BMesalOccup led]; 

* Locations reserved on page 0 

IMRESERVEf 0, 100, 233]; 
IMRESERVEf0, 335, 23']; 
IMRESERVEf 0, 361, 17]; 

* Locations reserved on page 1 

IMRESERVEf 1, 100, 253]; 

* Locations reserved on page 2 

IMRESERVEf2, 100, 226]; 
IMRESERVEf 2, 340, 1]; 
IMRESERVEf2, 372, 1 |; 
IMRESERVE[2, 3/4, 1]; 
IMRESERVEf2, 376, 1]; 

* Locations resei'ved on page 3 

IMRESERVEfS, 0, 336]; 
IMRESERVEf 3, 370, 3]; 
IMRESERVEf3, 3 /4, 3]; 

* Locations reserved on page 7 

IMRESERVEf/, 27, 1]; 
IMRESERVEf/, 76, 1]; 

* Locations reserved on page 10B 

IMRESERVEflO, 0, 363]; 

* Locations reserved on page 12B 

IMRESERVEf12, 0, 375]; 

* Locations reserved on page 13B 

IMRESERVEf13, 0, 305]; 

* Locations reserved on page 14B 

IMRESERVEf14, 0, 137]; 

* locations reserved on page 15B 

IMRESERVEf15, 300, 1]; 

* Locations reserved on page 16B 

IMRESERVEflO, 0, 312]; 

* Locations reserved on page 17B 

IMRESERVEf17, 140, 40]; 

END; 
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* DOLang.mc 

‘Last edited: July 2. 1979 5:10 PM b.y Chang, add IMUNRESERVE, GoExt 

* edited: June 27, 1979 10:52 AM by Jolmsson 

* edited: April 23, 1979 3:05 PM by Jarvis 

* edited: December 16, 1978 2:16 PM by CPT 

BUILTIN[MQ,2]; ‘Declare macro 

BUII.TIN[N@,3 ]: ‘Declare neutral 

BUILT1!1[MF.M0RYQ,4] ; *Decl arc Memory [name , words 1 zo , 1 ongt h , s rcmac ro, 

*s iiikmacro , taginnc ro , poslmac ro] 

BUILTIN[TARGET@,5]; 

BUIL fid[DEFAULTS,6]; 

BUILTIN[FLX@, 7 ] ; ‘Declare field 

BUILTIN[PF0,10]; ‘Preassign value to field 

BUILTIN[SET,11]; “Declare integer and set value 

BUILTIN[ADD,12]; ‘Add up to 8 integers 

BUILTIN[IP,13 ]; ‘Integer part of address 

BUILTIN[IFSE0,14] ; ‘If string equal (IFSF.0[sl, s2 , true , f nl se]) 

BUILTIN[IFA0,15]; ‘If field assigned (IFA0[field,true,falso]) 

BUILTIN[IFE@,16); “If integers equal 

HUILTIMfIf GO,17 j; ‘If integer 1 > integer 2 

BUI1.TIN[ IDF0,20] ; ‘If symbol In symbol table and not unbound address 

*BUI l.TIN[ If ME0,21] ; “If memory part of address equals string 

DUILTIN[F.R@, 22]; “Error message (ER®[st r ing , abortf 1 ag , in toge r]) 

BUtLTIH|LISTQ,23]; “Set listing mode for memory 

BUILTIN[INSERTS,24]; ‘Insert file 

BUILTIN[NOT®,25]; “l'S complement 

BUII.TIN[REPEAT@, 26]; ‘Repeat the text 7/2 771 times 

BUILTIM|OR0,27]; “Inclusive or up to 10 integers 

BUILTIN[XOR0,3O ]; “Exclusive or up to 10 integers 

DUIL1'1N[AHD0,31 ]; “And up to 10 integers 

BUILTIN[COMCIIAR@,32]; “Set comment char for conditional assemblies 
*BUILTIN[BITTABLE@,33]; “Makes 771 a bit table of length 7/2 bits 

*BUILTIN[GETB1T0,34]; “Is tlie bi t in bittablo 771 at pos. 7/2 

*BUILTIN[SEIBIT0,35]; “SETBI1[tab 1e,lstbit, 11 b its,distance,valuo] 

*BUILTIN[ EI NOB ITS, 36] ; *F TNDBIT[ TABLE® , 1STB IT , MB ITS , DISTAMC E , HOPDI STANCE , NIIOPS] 
*BUILTIN[MEMBT0,37]; *MEMBT[memory,table] creates a bit table for memory 
BUILTIN[LS1IIFT, 40]; “Shifts the integer 7/1 loft 7/2 positions 

l!UILTIN[R5UIFT,41]; “Shifts the integer 771 right 772 positions 

BUlLTIN[FVAL0,42]; *FVAL0[field] is an integer whose value is the 

“current contents of the field 

BUIL TIN[SELECT@, 43]; *771 is an integer .ge. 0 and .le. 7. evaluates 

‘772 if 771 = 0.779 if 7/1 = 7. Error if 7/1 > 7 

BUILTIN[SETPOST@,44]; ‘Sot post-evaluation macro (SETPOST@[mem,macro]) 
BUILTIN[SEIMBEXT0,47]; ‘Set ,mb file extension 

COMCIIAR0[~]; ‘Makes work like at beginning of linos 

SETMBEXTQ[DIB]; 

MU [SUB , ADD[//1, N0T@[//2], 1]]; ’ 

7,Memory declarations must have names and sixes agreeing with those in 
Midas, except that IM must agree with the form expected by MicroO. 

% 

MEMORY@[IM,124,10000,W@,W0]; 

MEMORY@[RM,20,400,RSRC0,RSINK0]; 

MEMORY@[IMLOCK,1,10000,W@,W0]; 

MEMORY@[VERSION,20,1,W@,W@]; 

M0[W@,]; ‘Dummy macro required for memory definitions 

IM[ILC@,0]; ‘Location counter for IM 

%Memory lock Control macro 

IMRESERVE[page //.first address,number of addresses] 

Will not allocate in the reserved locations 

% 

FLX@[LOCK0,0,0]; 

MG[ IMRESERVE , IML0CK[ Z§ , ADD[ LS1IIFT[//1,10] , //2] ] 

REPEAT@[//3, Z0[ ( L0CK@[ 1]) ]] 

J 

VERSION[VLC@,0]; 

M0[ XMUN RE SERVE , IMLOCK[ Z@,ADD[LSIIIFT[//l,10],//2]] 

REPEAT0[//3,Z@[( LOCK6[0]) ]] 

] 

VERSI0N[VLC@,0]; 

FLX@[VERS@,0,17]; 

%Second arg of LIST controls listing of memories as follows: 

1 = (TAG) nnnn nnnn nnnn ... 

2 « (TAG) Fl<-3, F2<-4, ... 

4 = numerically-ordered list of address symbols 
10 = alphabetically-ordered list of address symbols 

% 

LIST@[IM,7]; LIST0[RM,5]; LIST@[,17]; 
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%Throo macros define parameters from which constants, RM values, or 
XM data can be constructed: 

MI’l'NAMF.,octalstring | makes a parameter of NAME; 

SP[NAME,PI,P2,P3,P4,P5,P6,P7,PC ] makes a parameter NAME equal to the sum 
of Pi, P2, P3, P4, P5, P6, P7, and PS, whore the Pit may be parameters or 
addresses. 

MSP[NAME,P1,P2,P3,P4,P5,P6,P7,P8] Is ones complement of SP. 

Tho parameter "NAME" is defined by the integer "NAME!”, so it is ok to 
use "NAME" Tor a constant as well as a paramtor. However, it is Illegal 
to define constants, addresses, etc. with identical names. 


"Literal" constants such us "322C", "177622C", or "324000" may be 
inserted in microinstructions without previous definition. 


Alternatively, constants may be constructed from parameters, integers, and 
addresses using the following macros: 

MC[NAME,PI,P2,P3,P4.P5,P6,P7,P0] defines name as a constant with value 3 
sum of parameters PI, P2, P3, P4, P5, P0, P7, and PS; 

NMC[NAME,P1,P2,P3,P1,P5,PG,P7,P8] is the onos complement of MC. 

Note: MC and NMC also define NAME as a parameter. 


•Fields for Initializing 16-bit wide memories 
FI.X@[ F0@, 0,3]; FLX@[F.1@ , 4,17] ; 

"Macro to initialize (16-bit) variables in the target memory. This is 
"done by writing 32.100V (i.e., as a literal). 

M0[ V, E 10[//l] E0@[//2]]; 

M8[MP@,SET[//1! ,7/2]]; 

M0I SP0, IFG0['//O , 11, ER@[Too .many. args . for. //I] . 

SET|;//1 I ,DPS0[//2 ,//3,//4,//5,//6,//7,//8,//9]]]] ; 

M0|'NSP0 , IFG@[ //0,11, F.R0|'Too.many. args . for. Ill ] , 

SF.T[//11 , N0T@[DPS@[//2 , 7/3 ,//4,7/5,7/6,7/7,7/8,7/9]]]]] ; 
MP[DPS0,ADD[PX@[7/l],PX@[7/2],PX@[//3],PX@[7/4],PX0[//5],PX@[/76],PX®[/77],PXQ[//8]]]; 
M0[!,0]; 

M0[PX0, IDFQ[//1! ,7/1! ,//!]]; 


M@[C,IFA@[F10,ER0[EX.used.twice], 

IFA@[F2@,ER@[F2.used.twice], 
lFE@[AND0[/73//2 , 177760 ) ,0, 

SET[ !Tl@,ADb[LSHIFT[//2,4],RSHXFT[/U, 10]]] 
SF.T[ 1X20, AND@[//1,377]] 

IFF@[IT20,0 8o0[1] FFQ[IT10], 

BS@[0] FF@[I T 2 0 ] 

] B,ER@[Constant.too.big] 


M@[MC , IFG@[//0, U,ER@[Too. many. args. for. 7/1], 
SP@[ III , DPS0[//2,7/3 , //4 ,7/5 , //6,7/7 , //8,7/9 ] J 
M@[//l, ADD[/71 1 ]C]]] ; 

M@[NMC,IFG@[//0,11,ER@( Too. many. args. for. 7/1], 
SP0[ // 1, N8T@[DPS@[ 7/2 ,' 7/3 , //4,775,7/6,777 , //8,7/9] ]] 
M@[771,ADD[//11 |C]]]; 
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%RM stuff 


l(M constants and variables are allocated in two steps, first, the 
group of 100 registers that must contain the ones being allocated is 
declared b.y SETTASK, which binds the integer RMBASE to the top two 
bits of the selected task times 100. 


Then 


These 

bound 

equal 

% 


registers in that group of 100 are allocated as follows: 


RV[F00,23,pl,...,p7]; 
RV[FOO,23]; 

RV[FOO]; 

RV[FOO,,17575]; 


•Creates FQO - RM 23, value sum of params 
•Creates FOO = RM 23, no value 
•Creates FOO at last location + 1 
•Creates address FOO at location after 
•last one allocated with value 175/5 
macros leave the integer RLi, whore i = 0 to 3 (the region) 
to the last displacement allocated, and the integer RL is always 
to RLi for the current region. 


M@ [SETTAS K, TFG@[//1,17,FRO [Illegal .SETTASK], 

SELECT@[QTASK0, SF.T[RL0@, RL®] ,SET[RL1@, RL0], SET[Rl.2@, RL0] , SET[RL30, RLO]] 
SF.T['0TASK@,RSIIIFT[//1,2]] 8Et[CURTSK0, III] 

SET[RMBASE©,LSHIFT[QTASK®,6]] *For reg. instructions 

SF.T[BRBASE0, LSHIFTfCURTSKS,4]] *For mem. ref instructions 

SET]RLQ,SELECT@[QTASKQ,RL0@,RL10,RL2Q,RL30]] 

31 ; 

SET[RL08,177777]; SFT[RLIO,177777]; 

SET[RL20,177777]; SET[RL30,177777]; 

SET[RMBASE®,0]; SET[QTASK0,0]; SET[CURTSK0,0]; SET[RL®,177777]; 

M0[ RV, SET[ RL0, IFSE®[//2 , , ADD[ 1, RLO] , //2]] 

ITG@[RLO,77,ER@[RM.ovf]] 

RM[//1, ADD[RMBASE®, Rl.0]] RMfRLCO , Il’[//1] ] 

IFG0[//0,2 , RLC6[DPS0[//3 , //A , 7/5 ,116,117,1/8, //9]V]] 

I; 


•RM addresses used as sources/destinations execute following macros. 
M0[RSINK0 , CKRMAQ[//1] RB*-J; 

M@[RSRC0, C KRMAQ[// L] RB]; 

M0[G KRMA0 , SET[Z0T@, IP [ //1 ] ] MRS@[ AMD®[ ZOT0, 77]] 

IFE0[ RSHIF'T[ZOT@, 6],QTASK®, 

IFE@[AND@[ZOT0,60],0, 

IFE@[ ANI)@[ CURTS K@, 3] , O, , ER0[//1. unadd ressabl e]] 

] , ER@[//1. un address able]] 


•PCF[RMADDIl] , SB[RMADDR], and DB[RMADDR] are also A sources 

M0[PCF , QRS@[//1 , 0, PCF]] ; 

M0[Stl,QRS0[//l,l,SB]]; 

M0[DB,QRS@[//l,2,DB]]; 

M@[QRS@,SET[ZOT0, IP[//1]] 

IFE0[ AND@[ ZOT0,3] , 0, IFE@[ RSII IFT[Z0T@ , 6 ] , QTASK® , MRS0[ ADD[ 100 . ZOT0 , //2]]RB , 
ER@[//1. in . i 1 legal . RM. reg ion ] ] , ERQ[//1 . not. qua da 1 igned]]]; 

•other register sources 

M0[A1 URESULT, IFA0[MRS1X0, MRS.1ER0, 

MRS@[107] LDF[RB, 4,4]]] ; *aluresult ■= ovf, cqr, =0, <0 

M@[SAI.UF, IFA@[MRS1X@,MRSIER0, 

MRS0[107] LDF[RB,10,10]]]; 

M0[SSTKP,IFA0[MRS1X@,MRS1ER@, 

MRS@[103] LDF[RB,0,10]]]; 

M0[NSTKP,IFA@[MRS1X@.MRS1ERQ, 

MRS@[103] LDFf RB,10,10]]]; 

M@[STKP,IFA@[MRS1X0,MRS1ER0, 

MRS@[103] LDF[RB,10,10]]]; 

M9[MEMERR0R,IFA@[MRS1X@,MRS1ER0, 

MRS0[117] RB]]; 

M@[MEMSYNDROME,IFA@[MRS1X@,MRS1ER0, 

MRS@[113] RB]]; 

M@[DBXREG,IFA0[MRS1X0,MRS1ER0, 

M R SQ [ 12 7 ] LDF[RB,0,4]]]; 

M@[MWXREG,IFA@[MRS1X@,MRS1ER0, 

MRS@[127] LDF[RB,4,4]]]; 

M@[CYCLECONTROL,IT A0[MRS1XQ,MRS1ER0, 

MRS@[127] LDF[RB,0,10]]]; 

M®[PCXREG,IFA@[MRS1X0,MRS1ER0, 

MRS@[127] LDF[RB,10,4]]]; 

M9[PCFREG,IFA0[MRS1X@,MPS1ER0, 

MRS0[127] LDF[RB,14,4]]]; 

M0[PRINTER,IFA@[MRS1X0,MRS1ER0, 

RF.GSHIFT[] MRS0[127] RB]]; 

M@[DBSB,IFA@[MRS1X@,MRS1ER0, 

REGSHIFTf] MRS@[133] RB]]; 

M@[TIMER,I FA©[MRS1X0,MRSIER0, 

MRS@[133] RB]]; 

M@[RS232,IFA0[MRS1X0,MRS1ER0, 

MRS@[137] RB]]; 

M0[MNBR,IFA@[MRS1X0,MRS1ER0, 

REGSHIFT[] MRS@[137] RB]J; 

M@[APCrASK,IFA@[MRSlX0,MRSlER0, 

MRS@[143] LDF[RB,0,4]]]; 

M@[APC,IFA0[MRS1X@,MRS1ER@, 

MRS@[143] LZER0[RB,4]]J; 

M@[APCTASK&APC,IFA@[MRS1X@,MRS1ER0, 

MRS@[143] RB]]; 

M@[APC&APCTASK,IFA0[MRS1X@,MRS1ER0, 

MRS@[143] RB]]; 

M0[CTASK,IFA0[MRS1X@,MRS1ER0, 
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MRSQ[ 147 | l.0F[RB,0,4]]]; 

M0[NC TA,IFA®[MRS1X®,MRSIER®, 

MRS®[147 | IZER0[RB,4]]]; 

M6[CSDATA,IFA@|MRS1X®,MR51ER0, 

MRS0[ 153] no j |; 

MB [PAGE, IFA@[MRSIX8,MRS1F.R0 , 

MRS@[167] IDF[rtn,0,4]']]; 

M0[ PARITY, iFA0[HUSlXt>,MRSlER9, 

MRS®[157 } I.r>F[RB,4 t 4]]]; 

M0[BOOTREASON,IFA®[MRS1X0,MRS1ER®, 

MRS®[ 157 | l.DF[RB,10,10]]]; 

M0|MRSIER®, CR@[MRS1. used', twice]]; 

*To get a multi-field word using only one specification , use 

*GETRSPEC[mrs address] . Thus to load T with APCTASK and APC, use *tho following syntax: 

* T <- GETRSPEC[ 143] ; 

M0[GETRSPEC,IFA0[MRS1X®,ER®[MRS1.used.twice], 

MRS®[//1] RB]]j 

*SlkP sourcos/destinations and other RB sources are defined with the 

* fol1 owing mac ros: 

*MKRSRC®[namo,rselvalue] defines the source -or- 
*MKRDEST@[namo, rselvalue] defines tlie destination 
M0| MKRSRC0,M01'//1, (MRS®[//2'| //3) RB]]; 

M0£MKRDCST0.M®[//l,(MRSe[//2] 7/3) RB<]]; 

•STACKSHIFT (StackShift) is F2 

MKRSRC®[STACK,163,]; MKRSRC@[STACK&+1,167,]; 

MKRSRC®|’ST ACK&-1, 173 ,]; MKRSRC®j'STACK&-2 , 177, |; 

MKRSRC0[STACK&+2,163,STACKSHIFT]; MKRSRC0[STACK&+3,167,STACKSHIFT]; 

MKRSRC0[STACK&-3,177,STACKSHIFT]; 

MKRDEST@[ STACK*-, 163, ]; MKRDEST®[STACK&+1«-, 107 , ] ; 

MKRDF ST@r STACK&-1*-, 173 , ] ; MKRDLST@[STACK&-2<-, 177 , ]; 

MKRDCST0[STACK8r+2*-, 163.STACKSHIFT]; MKRDEST@[STAC K&+3<-, 167, STACKSH IFT] ; 
MKRDfcST®[STACK&-3«-, 177, STACKSHIFT]; 
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7.IM used as data stuff 

IM words can bo assembled as data using tbo "Ul" (left half) and "RH" 
(right-half) macros defined below. Each of these takes up to 3 arguments 
which are either parameters, addresses, or integers. These are summed 
to form the value storod. 

The way to assemble data is: 

DATA[(LH[. ..] RH[...] AT[ ...])): 

X 

Fl.X@[VO0,O,17]; FLX0[V10, 20,37] ; 

M0f III, IFG@[//0,10, F.R0[Too. many. args. for. LH]] 

V0@[DPS@[//1, II2 , II 3 , //4 ,//6 , 7/6, 1/7 , //8]]] ; 

M0[RII, IFG0[//0,10, ER0[Too.inany. args.for. RH]'J 
V1Q[DPS0[//1, IIZ , //3 , //4 ,//5 , //0 , HI , //8]]] ; 

M8[DATA,ILC@[HETCL@[2] //!]]; ‘Indicate "Return" so no MicroD fixup 


*IM field definitions 

M@[MRS0,MRS10[RSIIIFT[//1,2]] RSEL2@[AND@[//1,3]]] ; ‘MEMINS0, RMOD0, and RSEL0 

M@[MRS10,MRS1X@[XOR0[//I,.l4]]]; 

FLX0|'MRS1X@, 0,5]; 

M0[RSMOD0,RSMOD10[RSHTFT[//1,2]] RSEL2@[AND0[//1,3]]] ; ‘RMOD0 and RSEL0 
M@[RSMOD10, RSM0D1X@[X0H@[//1, 14]]] ; 

FLXW[RSMOD1X0,1,8]; 

FI.X@f F'20,22,26j; *FF[4:7] 

FLX@[JC@,26,30]; ‘Jump control 

MQTJA0, JA10F RSIITFTT//1,6T1 JA2@[AND0T//1,77 ]] ] ; 

FLX0f JA10,122,123]; 

FI.X0[ JA20,31,36 1; 

F1.X@[JA7@,36,36]; 

FLX@[RSEL20,120,121]; 

‘Fields in regular instructions 

FLX0[AFO@,6,6]; ‘Sign bit for constants 

FLX@[ ALF0,6,11]; ‘Entire ALUF field 

FLX0[11S0, 12, 13]; ‘Source for RMux 

FLX@[LR@, 20,20]; ‘Load I1M 

FLX@[LT0,21,21]; ‘Load T 

ILX@fIMPARITY©,37,37]; ‘Parity bit 

M@[t T@, F1@[RSHIFT[//1,4]] F2@[AND@[//1,17]]] ; ‘Function field 

FLX0[F10,14,17]; *FF[0:3] 

•Fields in memory reference instructions 
Fl.X@[TYPE0,6,11]; “Type of memory reference 

‘Sou rco/dostination 
FLX0[S;;cntS0,12,21]; 

‘Extra stuff for MicroD 

FL X@['BRKP@, 40,40] ; ‘Instruction has a breakpoint 

FI X@[W0@, 44,57]; 

*1LX0[0GWO@,41,57]; *@W0, GLB, and PW0 

FLX@[0WO@,41,41]; ‘Place at absolute loc. W0 

»F1X@[GLB@,42,42]; ‘Place at global call loc. 

FLX0[PWOQ,43,43]; ‘Bit 43=1 tells MicroD that 44:47 contain the page 

•on which the instruction should be placed 
FI.X0[ PGE0,44,47] ; ‘contains page for mi placement 

ILX@[RETCL0,60,61]; *2 = does a Return 

*1 = does a Call 

FLX@[ODDCALL@,62,62];‘Does a call from an odd location 
n.X@[SWPAGE@,63,63]; ‘This instruction loads the PAGE register 
FLXQ[W.l@, 64,77]; ‘Imaginary address of unconditional or faiso 

‘branch address 

FLX@[CHPAGE@,10 l,101];‘Indicates F-field is LOADPAGE, new page in F2 
*FLX0[EMUL@,102,102];‘Presently unused 
Fl.X@[CND@ , 103,103] ; ‘Has a branch condition 

FLX0[W20,104,117]; ‘Imaginary address of conditional branch when true 


M@[FZ@,IFA0[F10,ER@[Fl.used.twico].IFA@[F20,ER0[F2.used.twice],FF@[//1] ]]]; 
M@[FF1@, IFA@[F1@,ER@[F1. used, twice], Fl@[//l] ]]; 

M0[FF2@,IFA@[F2@, ER@[F2 . used . twice] , F2@[//l] ]]; 


M@[BREAKP0INT,BRKP@[1]?]; 
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‘Neutrals and connection macros 

N@[RB<-]; N@[RB]; N0[A]: N0[B<-]; N0[D]; N0[7]; N0[T«-]; N0[T]; N0[LU]: Nfff LU+-]; 

M@[A<-A, A<-]; M@[n+B , B J ; M0[ LIJ<-LU, LU] ; 

M0[A«-,PF0[ALF0,1]SET[I'<F.GIFLAG@,1]]; 

MC![A<-RB,A+-]; 

M®[' RB< I.U,LR@[1] LU'J; 

M@[RB*-A , RB<-( LU«-A) ] ; 

M@[RB<-B,RB< (L.U< B)]j 
H0f RB<-T, RU<-( I.U*-T) ]; 

M@[RB<-RB, RB<-(LU*-RB)]; 

M0[B«-T,B]j 
M©iT+-I.U, LTOf. 3 1 LU]; 

M@[T*-A, T«-( l.U«-A) ]; 

M@[T<-B , T<-( LU«B) ]: 

MQ[T«-T, T*-( LU< r) ] ; 

M@[T <-RB , T*-( I.U+-RB) ] ; 
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XCyclor-masker stuff: 

The arguments to the l.DF and DISPATCH macros are POS and SIZE, where 
POS is the left bit of the field and SI7.E the number of bits in tho 
field. This is identical to Mesa read-field and wrlto-field 
descriptors. 


LDF[RBsource,POS,SIZE] is used to right-justify any field. 


0 

- 17 

20 

1 - b i t 

fields 

starting 

at 

bi t 

0, 

1, 



17 

20 

- 36 

17 

2-bit 

fields 

start ing 

at 

b i t 

0, 

1, 



16 

37 

- 54 

16 

3-bit 

fields 

starting 

at 

bit 

0, 

1, 



15 

65 

- 71 

15 

4 - b i t 

fields 

starting 

at 

bit 

0, 

1, 



14 

72 

-105 

14 

5 -bit 

fields 

starting 

at 

b it 

0, 

1, 



13 

106 

-120 

13 

6 - b it 

fields 

starting 

at 

b i t 

0, 

1, 



12 

121 

-132 

12 

7-bit 

fields 

starting 

at 

bit 

0, 

1 , 



11 

133 

-143 

11 

10-bit 

fields 

starting 

at 

bit 

0, 

1, 



10 

144 

-153 

10 

11-bit 

fields 

starting 

a t 

bit 

0, 

1, 



7 

154 

-162 

7 

12-bit 

fields 

starting 

at 

bi t 

0, 

1, 



6 

163 

-170 

6 

13-bit 

fields 

starting 

at 

bit 

0, 

1, 



5 

171 

-175 

5 

14-bit 

Fields 

starting 

at 

bit 

0, 

1, 



4 

176 

-201 

4 

15-bit 

fields 

starting 

at 

b it 

0, 

1, 

2, 

3 


202 

-204 

3 

16 -l> i t 

fields 

starting 

at 

bit 

0, 

1, 

2 



206 

-206 

2 

17-bit 

fields 

s tarting 

at 

bi t 

0, 

1 




DISPATCIIfRBsourco, POS, SIZE] is used to load APC with 

the 

sclected 

field 

with SIZE 

= < 

4 bits 










207 

-226 

20 

1-bit 

fields 

starting 

at 

bit 

0, 

1, 



17 

227 

-245 

17 

Z-bit 

fields 

starting 

at 

b i t 

0, 

1, 


. f 

16 

246 

-263 

16 

3-b i t 

fields 

starting 

at 

bit 

0, 

1, 


. , 

15 

264 

-300 

15 

4 bit 

fields 

starting 

at 

b it 

0. 

1, 



14 


RSIIf RBsource, shi ftcount] right-shifts Resource by shiftcoimt 1 to 17. 
uses LDF[RBsource,0,(20 - shiftcoimt)] codes 
LSH[RDsourco,shiFtcount] left-shifts RBsource by shiftcount 1 to 17. 
301 -317 17 left shifts of 1. 17 bits 

LCY[RBsource,shiftcount] left-cycles RBsource by shiftcount l to 17. 
320 -336 17 loft cycles of 1, .... 17 bits 

RCY[RBsource,shiftcount] right-cycles RBsource by shiftcount 1 to 17. 
uses LCY[RBsource,(20 - shiftcount)] codes 
RHMASK[RBsource] is RBsource & 377 
uses I0F[RBsource,10,10] code 
I.IIMASK[RBsource] is RBsource & 177400 
337 -337 RBsource & 177400 

ZERO is zero 
340 -340 zero 

% 
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M@[LDF,BS0[3] 

IFG0T ADDI//2 , //3] , 20 , F.R@[ II legal. POS+SIZE] , IFGQ[1 ,7/3, ER@[ 11 legal .SIZE!, 
FZ0[ ADD[7/2,1 i'G0[7/3,7 , 

SELECTQ[SUB[Z'3 , 10] , 133,144,154, 163,171,176,202,305] , 

SEt.ECT@[//3,100000,0,20,37,55,72,106,121]]]] 

01 ]]]; 

M0[DISPATCII,IJS0[3]ALF8[1]SET[RETNOGOOD@,1] 

IFG@[//3,4, ER0[Xi 1 ega I. SIZE] , IFGQ[ ADD[/72,7/3 J , 20, ER@[ Illegal. POS-i-SIZE], 
FZ@|'ADD[//2, SFLECT0[//3, 100000,207,227,246,204]]] 

01 ] j ]; 

M0[RSH,BS0[3] 

IFG@[//2,17, ER0[RSII. count, too. big], IFG@[1,7/2, ER0[RSII. count, too. small], 
F7.0[ IFG8[ 7/2, 7, SELECTQ[SUB[//2,10], 133,‘121, 106,7 2,65,37,20,0], 
SELECT@[//2,100000,205,202,176,171,163,164,144]]] 

01]]]; 

M0[l.SH,BS@[3] 

IFG0[//2,17,ER0[LSII. count, too. big], IF6@[1,772 , ER0[L.SII. count .too. small], 
FZ0[ADD[//2,3OO]] 

01]]]; 

M0[RCY,BS@[3] 

IFG0[//2,17, ER0[ RCY. count, too. big], IFG0[1,772 , ER0[RCY. count, too. small], 
FZ@[SUB[337,//2]] 

01]]]; 


M0[LCY,BS@f3] 

I FG0[//2,17, ER@[ LCY. count, too. big], TFG0[1,7/2, ER0[ ICY. count, too. small], 
EZ0[ADD[//2,317]] 

01]]]; 

M@[ RIIMASK,BS@[3] FZ0[143] III ]; 

M@[ I..HMASK , BS0[3] FZ0[33 7] //l ]; 

M@[7.F.RO , BS@[ 3] FZ@[340] RB] ; 
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%Functions: 


Functions are divided into the following classes: 

1. Group A and Group B--only in regular instructions, use FI and FZ. 

2. FI only--on1y in regular instructions. 

3. FZ only--either memory reference or regular instructions. 

% 


•Group A functions are currently unused 

•Group B functions 

M0[SPAREFUNCTION, FZ@[ 160] 7]; 

M0[RESET ERRORS,FZ@[161] ?]; 

M0[INCMPANEL,FZ@[162] ?]; 

M0|CLEARMPANEL,FZ@[163] ?]; 

M0[G F.NSRCLOGK, FZ@[ 164]' ? ] ; 

M@[ RESETWDT, FZ@[ 165] ?]; 

M0[BOOT,FZ0[166] ?]; 

MQfSETFAIJLT, FZ@[ 167] ?]; 

M@[APCTASK&APC<-,FZ0[17O |SF.T[ RETNOGOOD0,1] A*-]; 

M0[APC&APCTASK<-FZ0[ 170]SF. I'[ RETNOGOOD0 ,1] A<-]; 

M@ ['RESTORE, FZ0[171] A*-]; 

M0[RESETFAULT,FZ0[172] ?]; 

M0[USECTASK,FZ0[173] ]; 

M0[WRITECSO&2,FZ0[174] CSX0] ; 

MQ[WR IT ECS1,FZ0[175j CSX0]; 

M0[RI':ADCS,FZ0[176] CSX0]; 

M0r CSX0,JC0|'6T SETFCSFLG0,1] ERQ[CSOp. . . ]]; 

M0[DOOFF,FZ0[i/7] ?]; 

* F 1 only 

*00 take an RM address as argument 

M0[[!BFA,REGSIIIFT[]PF0|;AI F0,3]FF10[OO] //1 ] ; 'This is a dispatch 

"Fl - 5 is load page 

•FI = 6 is Group A is unused 

•Fl = 7 is Group B 

M0[RS232< ,FF10[1] B<- ]; 

•02-03 take an RM address as argument 
M0[LOADTIMER, FF1@[ 2] A«-//l ]; 

M@[ADDT0TIMER, FF10[3] A<//1 ]; 

*4 is unused 

M0[ LOAD PAGE , FF 10[5] FF20[//1] SWPAGE@[1]]; 

*F1 = 6 is Group A 
•Fl =7 is Group B 

*11-14 take an RM address as argument 
•Fl = 10 is no-op 
M0[WFA,FF1@[11 ] //1 ]; 

M@[BBFB,FF10[12] //!]; 

M@[WFB, FF10[ 13] //!]; 

M@[RF , FF 1Q[ 14] 7/1]; 

M@[BBFBX , FF10[ 15] 7/1]; 

M@fNEXT INST,FF10[16] RETCL0[1] ODDCALL0[1] JC@[5] PCF[//1]] : *This is a dispatch 

M0[Nt. XTDATA , IF 10[ 17] RETCL@[1] 0DDCALL@[1] JC@[5] PCF[//l]j; 

M@[CNEXTDATA,FF1@[17] PCF[//1]]; ‘Like NextData, but known to bo a call, and is to be placed as a call by MicroD 
*F2 only 

M@[REGSIIIFT , FF20[0] ]; 

M0[STKP< , FF20[ l] A<- ]; 

M0[FREEZE RESULT,FF20[2]?]; 

•STACKSIIIFT is invisible (used only by STACK, STACK&*1, STACK*-, etc.) 

M0 [ ST AC KSIIIF T, F F 20 [ 3 ] ] ; 

M@[IOSTROBE,FF2@[3]]; * same as STACKSHIFT 
MQ[CYCLECONTROL<\, FF20[4] A*- ]; 

M@[SB< , FF20[5] A*- ]; 

M0[E>R<-, FF20[6] A*- ]; 

MQ[NEWINST,ERQfNewIns tIsNowByLoca tion]]; 

M@[BRANCITSHIFT , FF2@[ 10]SET [BRSIIFLG0,1]]; 

M0[SALUF<-, FF2Q[ 11] B<- ]; 

*12 is a no-op 
M@[MNBR<-, FF2@[ 13] A<- ] ; 

M@[PCF<-, FF2@[ 14] A*- ]; 

M0[RESETMEME RRS,FF2@[15]]; 

M@[USECOUTASCXN,FF20[16]]; 

M@[PRINTER*-, FF2@[17] A<- ]; 
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^Memory reference Instructions: 


Memory reference clauses are encoded 
PFETCHii[basereg , raddr, F2]; *n = 

PSTOREnfbase reg , raddr, F2 ] ; *n = 

I(JFETCIIn[basereg,device,F2]; *n = 

IOSTOREn(basoreg,dovico,F2]; *n = 

XMAPfbasereg,raddr,F2]; 

INPUT[raddr,F2J; *dev iceadd r 

OUTPUT[raddr,F2]; *dov iceadd r 

READPIPE[raddr]; 

REFRESII[raddr]; 

The F2 argument is optional. If giv 
come from F2 rather than T. 


in one of the following forms: 

1, 2, 4 
1 , 2 , 4 
4, 20 
4, 20 

is H2[ 10,13]orCTASK[0,3] , ,II2[14,17] 
is 112 £ 10,13]orCTA5K[0,3] , ,H2[14,17] 


, it causes the displacement to 


The base register RM address Is legal if: 

RAddr is oven 

RAddr eg 0R@[RAddr,BRBASF.] 

% 

M@[MEM@,SET[ZOT0, [P[//l]] 

IFG@[20 , Z0TQ, SET[Z0Z@, 0R@[Z0T@, BRIJASF.©]] , SF.T[Z0Z©, Z0T@]] 

IFE0[OR@[ZOZ0,BRBASE0],ZOZ0, 

IFE@|'ANI)0['ZOT@, 1] , 1, ER0[//1. i s. an . odd. base . reg i sto r] , ] 

IFG0[//2,2 , l'2@[//3] MRS0[ ADD[300 , AMD@[ ZOT0,7 7 ] ]] , 

MRS0[ADD[2O6,AND@[ZOT0,77]]]], 

ER0[//1. not. addressable . by .task] ] |; 

M0[MI MRS, IFSF@[//1 , STACK, SRCDES0[0] , SET[ZOT0,1P [It 1 ]] 

I FC0[ 20 , ZOT0 , SETf ZOZ0, OR0[ ZOT0 , RRIIASE0]] , SET[ZOZ0 , ZOT0] J 
IFF@[OR0[ZOZ0,DRBASE0],ZOZ0, 

II- E0|'AND@[ZOT@, 7/2] , 0,1FE@[ZOT@, 0, ER@[//1. equal. zo ro . . stack. wi I I . be. used. , ]] 
SRCDES0[ZOT@] , ER@[//1. not. even. o r. not. quad a I igned] ], 

ER0|7/1. no t. add res sab le. by. task]]] ]; 

M0fIODV0,1 FE0[ 0R@[//l, BRCASE0],//L,SRCDES@[ 7/1 ],F.R0[//l. is. un add re ssablo.de vice]]]; 
’"type 0 is unused 

M0[ 1 0FETCM4 , MEM@[//t, 7/0,773] TYPE@[1] IODV@[//2] ?]; 

M@[READPIPE,MRS0[2OO] TYPE@[2] MEMR0[771,0] 7|; 

M@f REFRESH , TYPE@[3 | MRS@[ADD[300, AND0[ 77 , IP[//1]]]]F20[0] ?]; 

M0[PFETCII 1, MEM0[ 7/1,7/0 , //3 | TYPE@[4] MEMR@[7/2,0] 7]; 

M0[PFETCII2,MEM@[//l,/7O,//3 j TYPE@[5] MEMR0[//2,1] ?]; 

M@[PFETCII4,MEM@[7/l,//0,//3] TYPE0[6] MEMR@[//2,3] ?]; 

M0[ INPUT, I FG0| 7/0 , l,MRS0[3OO] F20[//2] ,MRS0[2OO]] 

TYPF.0| 7] MEMR@[//1] ?]; 

M@[P STORE 1, MEMO f 7/1, //0,7/3] TYPE0[1O] MEMR0[/72,O] 7]; 

M0f PST0RE2 , MEM0[ //1,7/0,773] TYPE0[:ll] MEMR@r//2,l] ?]; 

M@[ PS 10RE4 , MEM@[/71,770,773] TYPE@[12] MEMR@f//2,3] 7]; 

M0[OUTPUT, IFG0f770.1,MRS0[3OO] F2@[/72 ] , MRS@[ 200]] 

TYPE©['13] MEMR@[//1] ?]; 

M0| 101 E ICI116 , MEMO) //1, 7/0 , //3] TYPE0[14| IODV0[//2] 7]; 

M0[ IOFETCII20 , MEM0[//1,7/0 , //3] TYPE@[14] IODV0[//2] ?]; 

M0| 10ST0RE4 , MEM@| 771, //0,773 ] TYPE0[15] TODV@[//2] 7] ; 

M0[XMAP ,MEM0[//l . 7/0,773] TYPE0[ Ifi] MEMR0[//2,O] ?]; 

M@[ IOSIORE16 ,MEM0[//l ,//0,7/3] TYPE@[17] iOOV0|7/2] ?]; 

M@[ IOSTORE20 , MEM0[771,7/0,773] TYPE@[17] I0DV@[//2] ?]; 
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'/.Centrol stuff: 

X 

"■Force absolute location and change default pago 
M@[AT,@WO0[1] W06 [ADD[//1,7/2] ] ONPAGF[RSHI FT[ ADD[//1, til ] , 10]]]; 

*T1 1 o default micro-instruction 

DF.FAIJLT0[IM, (BS0[2] F10[tO] F20[12] JC@[4] U'l@[7777] W2@[7777] PWO0[1])]; 

"■Micro-instructions which arc no-ops use tho following macro: 

M0[NOP,PF0[GS@,2]j; 

"The ONPAGF. macro changes the default pago number wliicli is used 
"for address assignment. 

M@[ON PAG E , DEFAUI.T0[ IM, PG E0[ //1] ] ]; 

%Hranch macros 

"~0" and in front of branch condition names are for type checks. 
Macros insert these noise characters in front of names supplied by tho 
prog ram. 

% 

M@[ . -3 , ADD[ Il’[ Xl.CO] , -3]'|; M0[ . +3, ADD[ IP[ tl.CHJ , 3]] ; 

M0[ . -2 . ADI>[ XPf ILCO'j, "2 ]'|; M0[ . +2 , ADD[TP[ I I..C0] , 2] ] ; 

M@[ . -1, ADD[ IP[ILC0], -1]]; M0[ . + 1, ADD[Il>[ Il.CS] , 1]] ; 

M0[ . , II.C0]; 

"Regular BC’S: Those conditions result in odd addresses 
M0[~ALU//O,CND0[1 | JC@[0] JA/@[0] SET[AI.UTESTFLG0,1]]; 

M0[-CARRY,CND0[l] JC0[O] JA70[1] SET[ALUTESTFLG0, l j]; 

M0|~ALU<O, CND0[1j JC0[l] JA7@[0] SETfALUTESTFLG0,1]j; 

MS[~N0II2BIT8 ,CND@[ 1] JC0[1] JA7@[1]]; 

M@[~ R < 0,C N D0[1j JC0[2] J A 7 0 [ 0 ] ] ; 

M0f~R ODD , CND0[ 1] JC0[2] JA70fl ]]; 

M0[-NOATTFN,CND0[l] JC0[3] JA/@[0]]; 

M0[~Mfl,CND0[l] J C 0 [ 3 J JA70[ 1]] ; 

M@['~INTPENDING,CND@[1] JC@[0 | JA70[O] 8RANCHSIIIFT ]; 

M0[~HOOVF,CND0[1] JC0[O] JA7@[1] SET[AHJTFSTFLG@,1] BRANCHSHIFT]; 
M@[~BPCCHK,CND0[1] JC0[1] JA70[O] B RANCH SI IX FT]; 

M0[~SPAREBRANCII,CND@[1 | JC0[1| 3A70[1] B RANCHSIII FT] ; 

M@[~QUAD0VF , CND0[ 1] JC@[2 J jA7@[0] BRANCIISIIIFT] ; 

M@[~TIMC0UT,CND@[1] JC0[2] JA7G[1] BRANCIISIIIFT]; 

M@[~,|; 


"Complementary BC's: These conditions result in oven addressed 
M@[~@ALU~0 ,CND@[ 1] JC@[0] JA70[O ] SF.T[ AUJTESTFLG0,1 ]] ; 
M@[~@N0CAI1RY, CND@[1] JC@[0] JA70[1] SET[ALUTESTFLG0,1]]; 
M@[~0ALU>=0,CND@[1] JC@[1] JA7@| 0] SE T[AI.UTESTFLG0, 1]]; 

M0|~@H2BIT8,CND@[1] JC@[1] JA7@[1]]; 

M0| ~®R>-0,CND0[lj JC0[2] JA70[O]]; 

M0[~@R EVEN,CND@[1] OC0[2] JA7@[lj]; 

M@[~@I0AT TEN,CND0[1] JC0[3] JA7@[0]]; 

M@[-@N0MB,CND@[1] JC0[3] JA70[1]]; 

M@[~@NOINTPEND.THG , CND@[ 1] 3C0[O] JA7@[0] BRANCIISIIIFT]; 
M@[~0OVF,CND@[ 1] JC@[0] j A 7 0 [ 1 ] SET[ALUTFSTFLG0,1]BRANCIISMIFT] ; 
M0[~@nPCNOCIIK,CND@[ 1] JC0[1] J A 7@[ 0 ] BRANCIISIIIFT]; 
M@[~@SPAIiLNOBRANCII ,CND@| 1] JC0[1] J A 7 0 [ 1 ] BRANCIISIIIFT]; 
M0[~@INQUAD, CND@[ 1] JC0[2] JA70[O] BRANCIISIIIFT]; 

M@[-0NOTT MEOUT , CND0[ 1] JC@[2] JA7@[1] BRANCIISIIIFT]; 

M@[—0,]; 


M0[DBAT@, IDT@f~@//3 , Wl@[//1] W20[ 7/2 ] (~0//3 , -0/7 4) , W2®[//1] Wl@[//2] ( ~//3 , ~//4) ]] ; 
M@[BAT@, J[)F@[~6//2 , Wl@[//1] ( -0/72 , ~@//3 ) , W20[//l] (~//2 , ~//3) ] ] ; 
M0[GOTOX@,W1@[//1] IFE@[CSFI_G@,1,JC@[6],JC@[4]]]; 

%Branch and Goto 

The branch and goto macros are now identical and are 
interchangeable. If the next micro-instruction to be executed 
is in a different page, the macro must have a P following it. 

Thus GOTOP[xyz] is used when xyz is in a different page from 
the current micro-instruction. This occurs only when the m-i 
preceding the current one does a LOADPAGE. 

% 


M@[DR l.GOTO , DBAT@[//1,7/2,7/3 ,//4 J] ; 

M@[[)BLG0T0P , CIIPAGE0[ 1] DBAT@[//1, //2,7/3, //4]]; 

M0 [ DB LB RANCH , DBAT@[//1,7/2, #3, //4] j; 

M@[DBLBRANCHP , CIIPAGE@[ 1] DBAT0[//1 ,#2 ,//3,7/4]]; 

M@[G0T0, IFSE0[//2/73 , ,GOTOX@[//l] , 
BAT6[//l,//2,//3]]7]; 

M@[G0T0P, IFSE@[//2//3, ,GOTOX@[//l] CI1PAGE@[1], 
BAT@[//l,7/2,//3]]?]; 

M@[BRANCH, IFSE@[//2//3, ,G0T0X@[//1], 
BAT@[/H,//2,//3]]?]; 

M@[BRANCIIP,IFSE0[//2//3, ,GOTOX0[//1] CHPAGE0[1], 
BAT0[#1 ,//2 ,//3]]7]; 

M@ [SKIP,GOTO[.+2,771]]; 

***»**»■**»* External References 
M@[G0T0EXTERNAL , I FSE@[//2//3, , 

RETCL@[2] JC@[4] JA@[AND0[//1,377]], 

ER@[No.conditional.exte real.goto]]]; 

M@[C ALLEXTERNAL , I FSE@[//2773 , , 

W2@[.+1] RETCL@[3] JC@[5] JA0[AND@[yi,377]], 
ERQ[no.args.all owed.in.external.call's]]]; 
M@[LOADPAGEF.XTERNAL, FF1@[5] FF20[//1]]; 
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XCalls must normally ho executed from even locations, because 

the return Is to the caller's address or 1. MicroO will only pi alls at even word locations. The NEXTTNST, NF.XTop, and MEXTDATA 

macros are required to ho calls from odd locations to aid the 

instruction buffer refill micro-codo in ro-execution following 

loading of tho buffer. Tho macro RCAU.[label] or RCAI.I. will 

cause a call to ho assigned to ail odd location. 

% 


M@[CALL,IFSE@[//2//3,,RETCI.@[t] JC@[5;| W10[//l] W2S[.+1], 

ER@[no.args.a 11 owed.In.cal 1 ' s ]]7]; 

M0[CALI.P , TFSF.@[//2//3, , RETCL0[ VJ CHPAGE0[1] JCS[5] Wl@[#l] W20[.+l], 

ER@[no. args . al l owed, in.callp ' s]]?]; 

M0[RCALL, IFSE@[//2//3, ,RETCI.0[1] ODI)CALL0[ 1] JC0[5] IFSF@[//l, ,W10[ . H], W10[//l]] , 

ER@['no. args , a 11 owed. in . rcall ' s ]]? ] ; 

M0[ RCALI.P , IFSE0[//2//3, , RETCL0[ 1] ODDCALL0[:t] CIIPAGE0[1] JC6[5] IFSE@[//1, ,W10[ . +1] ,W10[//1]], 
ER0[no.args.a I lowed.in.rcallp's]]?]; 

M0[TASK,W10[ . + 1] W20[.+2] SF.T[TSKFLGQ, 1] JC@[5] RETCL0[1]]; 

M0[RETURN , IFSF.@[#l//2 , , RETCL0[2] JC@[6] JA70[O], 

ER0[no. args . al 1 owed. I 11 . re turn* s]]7] ; 

M0[NOTASKRTN,XFSE0[//l//2, , RETCL.0[2] JC0[6] JA7@[0], 

ER0[no.args.allowed.in.notaskrtn's]]?]; 

M@[NIRET, IFSE@[//l//2 , , RETCL0[2] JC@[f>] JA70[1], 

ER0[no.args.allowed.in.return's]]?]; 

M@[DTSP , TFSE0[//2//3 , ,JC0[7] Wl@[//1], 

ER0[no.args.ail owed.in.disp's]]?]; 

M0[DISPP, IFSE0[//2//3, ,JC0[7] CHPAGE@[1] Wt@[//1], 

ER@[no.args.al1 owed.in.dispp's]]?]; 
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7.ALU suin': 


Aiu operations must be defined for (A, RB) op (B,T) 


M0[LU<-B,ALF0[O]LUJ; 

M@[LU<"T, ALF0[O]LUj ; 

M0f LU'-RB, Al.F0[ 1]LU]; 

M0[ LU*-A, ALF0[ 1JI.U ]; 

M0[RBANDB,ALF0[2]LU]; 

M(J[AANDB,ALF0[2]LU]; 

M@[RBANDT,ALF@[2]LU]; 
M@[AANDT,ALF@[2]LUJ; 
M@[RB0RB,ALFQ[3]LU); 

M@j AORB,ALF@[3]LU]; 
M0[RBORT, ALF0[3]LU]; 
M®|'AORT,ALF0[3]L.UJ; 

M®[ RBX0R13, Al.F@[4 ji.U]; 
M@[AX0RB, AL.F@[4 JLU ]; 

M0[ RBXORT , Al.F@[ 4JLU]; 
M@[AXORT,ALFQ[4 jLU]; 

M@j : RB//B , ALF0[4]i.U’l; 

M@[ A//B , Al. F0[ 4 JLU] ; 

M@f RB//T ,ALF@[4]LU]; 

M@[A//T, ALFQ[4]LU]; 
M@[RBANDNOFB,ALFQ[5]LU]; 
M0[AANDNOTB, ALF@[5 |LUJ; 

M®| : RBANDNOTT , ALF0[ 5 JLU] ; 
M0[AANDNOTT,ALF0[5]LU|; 

M0[RUORNOTB,ALF0[6 JLU]; 
M0[AORNOTB ,ALF@[6]LUJ; 

M®[ RBORNOTT, Al.F0[6]LU]; 

M0[ AORNOTT ,ALF@[GJLU]; 

M0[ RBXNORB , ALF@| 7 ] LU]; 
M@[AXNORB , ALF@[ 7JLU]j 
M@[RBXNORT,ALF@[7]LUj; 

M@[ AXNORT , ALF@[ 7 ] L.U] ; 

M0[RB=B,AI.F0[7]LU]; 

M@[A=B,ALF0[7]LUJ; 

M@[RB-T,ALFQ[7 JLU]; 
M@[A=T,ALF@[7]LU]; 
M@[RBH,ALF@[10]LU]; 
M@fA*-l,ALF@[10]LU]; 

M@[RB 1 B,ALF@|11JLU]; 

H0[A < B , ALF@[ llji.U] ; 

Mfi[ RB + T , ALF@[ UJLU] ; 

M0[ A+T, At.F@[ 11 ]LU ]; 
M@[RB+B+1,ALF0[ 12JI.UJ; 

M@f A+B+l, ALF@[ 12 ]i-U] ; 

M@[RB i-T+1, ALF@[ 12JLU] ; 

M0[ A *• T+1, ALF0J I2JLUJ; 

H@[RB-1,ALF@[ 13 JLU]; 

M@[A- 1 ,Air@[ 13JLU]; 

M0[RB B,ALF0[14 JLU]; 

M0[A B,ALF0[14JLU]; 
M@[RB-T,ALF@[14JLUJ; 
M@[A--T,ALF0[14JLUJ: 

MQ[RB-B-1,ALF0[15]LUJ; 

M@[A-B-1,ALF@[15]LUJ; 
M@[RB-T-1,ALF@[15JLUJ: 
M@[A-T-1,ALF0[15 jLU]; 

*ALUF[16] UNASSIGNEO 

M0[RBSALUFOPB,ALF@[17]LU]; 
M0[ASAIUF OPR,ALF@[17 JLU]; 
H@[RBSALUrOPT t ALF@[17]LU]; 
M@[ASALUFOPT,ALF@[17 JLU]; 
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♦Macro executed after assembling instruction to default W1 
SETPOST0[1M,IMXSj; 

M@[TMX@ ,SETf CSFLG0,0'j 

1F K0[ CHPG F LG®, 1, CI1PAG F_0[ l ] SET [ Cl IPG F LCQ, 0 ] ] 

IFEBf I1TNFLG0,1, XX1@[ J] 

XFE@j : ISKFLG0,1, XX2@[]] 

IFA0[SWPACE@ , IFA0( W10', , SET[C!IPGFLGO, 1] j] 

IF E@[REG IFLAG0,1,XX3@[]] 

IFE0[RETNOGOOD@,1,XX40[]1 
IFE0[RTNTOFl.G0, l,XX50['j | 

SE T[BRSIIFLG0,0]SET[ALUFESTFLG0, 0] ]; 

M@[XX10, JC@[G] JA/@[0] RETCL0[2] SET[RTMFLG0,0] 

SET[RTN TOFLG0,1]]; 

M@[XX20,SET[RTNFLG0, I] SET[TSKFl.G0,0]]; 

M0[XX3@,IFE0[NOILKOKFLG@,0, IFE0[FVAL0[ALF0],0, 

EH0[WARNING; . .no. reg is ter. i n to rl ock]]SET[ REGIFLAG0,0]SET[ NOILKOKFEG0,0]] ]; 
H0[XX40,IFE0[FVAL@[JC0],6, 

ER0[ERROR:..ape.1oadod.during.return]] SET[RETNOGOOD0,0]]; 

M@[XX60,IFE0[ALUT ESTFEG0,1, . 

FR0[ERROR: . . al u . results . tes ted . fol 1 owing . re turn]] SE f [ RfNTOFLGQ, 0]] ; 
M0[NORF.GI LOCKOK, SF.Tf NOILKOKFLG0,1]]; 

T'TITl.E" outputs the file name and the value of ILC on tho .T.R file 
to help correlate error messages with soui'ce statements. It also resets 
various assembly flags to standard states. 

% 

M0[TITLE, (SETTASK[0] DI110[] TARGET0[ILCQ] 

SET[ TSKFLG0.O] SET[RTMFLG0,0] SET[CSFLG0,0] SET[CHPGFLG0,0] 

SET[ REGII LAG0,0] SET | RTNTOFLG0,0] SE 1 [RF.TNOGOOD0,0] 

SET[NOILXOKFLG0,0 | MIDASINIT[])]; 

M0[MIDASINIT,IFE@[ INITFLG0,0 ,S£T[INITFI.G0,1] 

LMRESERVErO,0,2]IMRESERVE[0,100,21]IMRESERVE[17,0,400] 

LANGVERSION[],]]; 

M@[DIB@, IFE@[HULTDIOFLG0,0, SF.T[MULTDIBFLG0, 1] 

VERSION[V0,0] V@[(VFRS0[1])]j]; 

M0[HOMIDASINIT,SET[1NITFLG0,1]]; 

M@[lANGVERSION,SETTASK[17]RV[DOLANGVERSIOM,41,3]SETTASK[0]]; 

M0[MULTDIB,SET[MULTDIBFLG0,1]]; 

M@[END,ER@[END...ILC=,0,IP[ILC@]]]; 

SET[INITFLG0,0]; 

SE T[MUI.TDIBFLG@, 0]; 

3 If mode not defined, make it Pi lot 
IDF0[AltoMode,,SET[A1toMode, 0]]; 

♦This statement defines comments *// is Alto and *= is Pilot 
IFF0[ Al toMode, 0 ,COMCHAR0[//] , COMCIIAR0[ = ]] ; 

♦Print Message telling Mode 

IFE@[AItoMode,0,ER@[Pilot.3.0.Microcode],ER0[A1to/Mesa.5.0.DO.Microcode]]; 
♦Mac ros 

M0[OPCODE, AT[2001,LSHTFT[//1,2]]]; 

♦Cycler-masker functions 
M@[ FIXVA , BS@[ 3 ] FZ@[341] //l]; 

M0[ Fo nn 1, l.DF[//1,17,1 ]] ; 

M0[ Fo rm2 , BS@|3] FZ0[312] //!]; 

M@[ Fo nn3 , LDF[//1,16,2]]; 

M@[Form4, BS@[3] FZ@[343] //!]; 

M@[Forn\Minus4, BS@[3] FZ@[351] 7/1]; 


M@[$RSe tD i spl.o , AND@f ADD[LSIIIFT[//1, 14],//2] , 37 7]C ] ; 

M@[ $RSe tDi spHi, AND@[ADD[LSMIFT[//l ,14],7/2], 17 7400]C]; 


ER@[6/12/79--D0Lang.version.4]; ‘Print release date on ,ER file 



DMDofs.mc 


3-Nov-79 19:IS:53 


Page 1 


t itlefdmdefs]; 

* last, modified by Jarvis March 15, 1979 4:10 PM 

"DEE'S FOP. DISK MOO 31 

SF.T TASKfDTASK]; 

* I/O register asslgnmonts 
SETfDRUMO , l.SHIFTfDTASK, 4]]; 

SETfOPUT, ADDfDRUNO, 5]]; 

SF.TfIPUT, ADD[l)RUN0, 3]]; 

SETf DSKADD, 0]; * DISKADD REG *• ODAFA 

SETfDBUFFER, 5j; * KOB <- ODATA 

SETfDPRP, 4]; * PRP <- ODATA 

SETfDPWP, 3]; * PWP <- ODATA 

SETfDSKCHMD, 2]; * CCSR *- ODATA 

SETf DSKCTRI.B, 1]; * DISK CTRLB *• ODATA 

SETfDSKCTRLA, 0]; * DISK CTRLA <-■ ODATA 

SETfDID, 0]; * TDATA *■ DISK ID 

SETfORPWP," l'|; * IDATA <• PWP/PRP/KOOST/KIBST 

SETfDSTATUS, 2]; * IDATA <- DISK STATUS 

SETfDKIB, 3]; * IDATA <• KID (DISK READ BUFFER) 

* It store assignments 

SETfDRBASE, AND@[60, ORUNO]]; * this tasks registers start hero 

RVfKData, ADDfDRBASE, 2]]; » WRITE MEMORY ADItESS 

RVfKDatat, ADDfDRBASE, 3]]; 

RVf IIP, ADDfDRBASE, 4]j; * READ POINTER FOR DISK 

ItVfWP, ADDfDRBASE, 5]]; * WRITE POINTER TOR DISK 

RVfREADMEMCOIJNT, ADDfDRBASE, 6]): * READ MEMORY COUNT OF WORDS 

RVfWR ITF.MEMCOUNT, ADDfDRBASE, 7jj; * WRITE MEMORY COUNT OF WORDS 

RVfCP, ADDfDRBASE, 10]]; * CHECK OPERATION PING PONG POINTER 

RVfRPP, ADDfDRBASE, 11]]; * Flags see below 

RVTDCUADDRESS, ADDfDRBASE, 12]]; * DCB ADDRESS 

RVfDCBADDRESS1, ADDfDRBASE, 13]j; 

RVf KBADDRESS, ADDfDRBASE, 14]]; * DCBADDRESSI.OCK ADDRESS 

RVf KBADDRESS1, ADDfDRBASE, 16]j; 

RVfCOMMANDWORD, ADDfDRBASE, 16]]; * DCB COMMAND WORD 

RVfWR, ADDfDRBASE, 17]]; * WORKING REGESTER 

* beware these registers are recycled 

RVfDISKSTATUS, ADDfDRBASE, 2]]; * STATUS WORD 

RVfOLDDISKADD, ADDfDRBASE, 4]]; * LAST SEEK POSITION 

RVfSECTORWAKEUP, ADDfDRBASE, 5]]; * SECTOR MASK 

RVfPROCESSWAKLUPRF.G 1, ADDfDRBASE, 6]]; 

RVfDCB, ADDfDRBASE, 7]|; ' * POINTER TO NEXT DCB 

RVfNEWDISKADD, ADDfDRBASE, 10]]; * NEW SEEK POSITION 

SETf DRCBASE , LSIlIFTfDRPAGE , 10]] ; * control store base address of DRPAGE 

SETfDCommandBase, ADDfORCBASE, 100]]; * read, write, check field dispatch 

SElfDPingBase, ADDfDRCBASE, 120]]; * ping pong dispatch 

MCfDTASK.l, LSiliF I fDTASK, 14]]; 

MCfdrpage.2, DRCBASE]; 

* RPP flags, context sensitive semantics for finding and transferring sector 

MCfSeeking, 1]; * seek in progress (note that same bit used for label flag) 

MC[LabelT1ag, 1]; * processing label during sector transfer 

MCfPostlOCB, 2]; * write status into IOCB/process ing data field in transfer 

* RPP < 0 implies disk error 

* RPP - 0 implies processing header during sector transfer 

* CP states 
MCfReadPing, 0]; 

MCfWritePing, II; 

MCfCPRead, 2]; 

MCfCPCheck, 3]; 

MCfCPWrite, 4]; 

* CTRI.A functions 

MCfSelectiveReset, 1]; 

MCfResetWakoup, 2]; 

MCfSetStrobe, 4]j 
MCfCiearStatus, 10]; 

MCfResetEverything, 13]; 

* CTRLB function - assumed that WakoupAllow is always on 
MCfWakeupAllow, 1]; 

MCfDataTaskAl1ow, 3]; 

MCfSendOiskAddress, 11]; 

MCfWakeMeEveryWord, 23]; 

MCfWakeMeForOutput, 43]; 

* Status register 
MCfSeeklnProgress, 100]; 

MCfSeekFailed, 200]; 

MCfDataWake, 400]; 

MCfSectorWake, 1000]; 

MCfSectorMask, 170000]; * same for IOCB 

* CMMD 

MCfSetSeekldle, 1]; 

MCfReadlILD, 250]; 

MCfHeaderLabelDataMask, 374]; ♦ same for TOCBCommand 

* CSB offsets 

SE TfCSBNext, 0]; 

SETfCSBStatus, 1]; 

SETfCSBDiskAdr, 2]; 

SETfCSBSectorMask, 3]; 


IOCB word offsets 
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SETfTOCBNext, 0]; 

SETfIQCBStatus, 1]; 

SETf IOCBCommand, 2]; 

SETf lOCBIleaderPoin ter, 3]; 

SETfIOCBLabel Pointer, 4]; 

SETf TOCBDa taPointe r, 6]; 

SETflOCBTranst'e rMask, 6]; 

SETfIOCBErrorMask, 7]; 

SETf rocnUnused, 10]; * 11 for oxteridod address format. 

MCflOCBDiskAdr, 11]; * 12 foi - extended address format 
SETflOCBAddressExtend, 10]; * high order bits of label and data address 

M0[$Labol Extend, LDFf//l, 0, 10]]; 

M0f$DataEx tend, l.DF[//l, 10, 10]]; 


* IOCB status 

MCfIOCBStatu sVa11d, 7400]; 

MC[IOCBTransferOk, 0]; 

MCf IOCBflardwaroError, 1]; 

MCflOCBChockError, 2]; 

MCflOCBIllegal Sec lor, 3]; 

* IOCB disk address 
MC[(OCBDrlvo, 2]; 

* IOCB command 
MCfSeckOnly, 2]; 

MCfDriveModifier, 1]; 

MCflOCBRead, 0]; * 2 bit command field for header, label, and data 

MCfXOCBCheck, lj; 

MCflOCBWrito, 2]; 

MCf TOCBWrite1, 3]; 

M0[$Soal, LDFfCOMMANDWORD, 0, 10]]; * field extractor for seal 

M@f$Extendfiit, LDFfCOMMANDWORD, 7, 1]]; * field extractor for extend bit 
MCfVal idSoal, 110]; * Seal = 110 alto style deb, Seal = lll extended address IOCB 

MCfExtendll in t, 1]; 

* physical characteristics of the disk format 
MCfSeetorsPerTrack, 14]; 

MCflleaderSize, 2]; 

MCfIabelSize, 10); 

MCfDataSize, 400]; 

* disk address field extractors 
M0f$Sec to r, LDF[//1, 0, 4]]; 

M@f$CyI inder, LDF[//1, 4, 11]]; 

M@[$Track, LDF[//1, 4, 13]]; * includes cylinder, head, and disk 

MS f $ D i s k , LD F [ //1, 10, 1]]; 
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inse rt[ri01 ang]; 

NOMIDASIN fT; LANGVERSTON;MULTDIB; 
insert[G loba IDofs]; 
insert[DMDefs]; 

riTI.E[DMInit]; 

"last modi Med by Jolwsson on April 7, 1979 12:30 PM 

"last modified by CPT on March 16, 1979 12:31 PM 

OM PAGE[DiskInitPage]; 
set task[DIASK]; 

Dlsklnit: WR+-13C , at [ D1 skin ItLoc] ; 

OUTPUTfWR, DSKCTRLA]; 

KData*- OC; 

KDatal<- OC; 

RP<- OC; 

WP«- OC; 

ReadMcinCount*- OC; 

WrltoMemCourrt*- OC; 

CP<- OC; 

RPP<- OC; 

DCBAD0RE3S<- OC; 

DCBADDRESS1*- OC; 

CoinmandWord*- OC; 

WR*- 1C; 

OUTPUi[WR,DSKCTRLB]; "ALLOW WAKE UPS 
KBADDRESS<- 400C; "KBaddress <- 521b 
KBADDRESS'- ( KBADDRF.SS) 1 (121C); 

KBADDRESS1'- OC; "build pointer to kbiock 
ioadpagefdrpage] ; 

GOTOp[DSWTASK];*wii1 set tpc and return 


ondfdminit]; 
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Inso rt[dO1ang]; 

NOMTDASINIT;LANGVERSION;MULTDIB; 

Insert[GlobalDefs]; 
inse rtj'OMDef s]; 

TITLE[extended-add ress-DMTask]; 

* last edit by Johnsson on April 7, 1979 12:31 PM 

* second page oliin. by Johnsson on March 15, 1979 5:40 PM 

* last modified by Jarvis on March 15, 1979 12:07 PM 

* Point added by Johnsson on February 16, 1979 12:63 AM 


ON PAGE[DRPAGE]; 
sot task |D TASK'I j 
M9[0NES,(ZEROj-1]; 


* sector wake up point if not t rails ferlnq data 
DSWTASK: 


cal 1[cRoturn]; * allow task switch before subsequent storage reference 
PE ETCH1[KBADDRESS, DCBADDRESS, CSUNcxt]; * get the link to the deb 
DSWAt: PROCESSWAKEUPREG'1< OC; * clear ray interrupt regoster 

T <- IOCUDiskAdr, TASK; * set up for fetch of lOCBDiskAdr 
INPUTfDISKSTATUS, DSTATUS]; * get disk status, need sector information 

DISKSTATUS<-( DISKSTATUS) XOR (Sector-Mask); * sector complemented 
DISKSTATUS<(DISKSTATUS) OR (lOCBStatusValid); * put in tho 17 

PFETCII1[DC0ADDRESS, COMMANDWORD, lOCBCoimnand]; * get tho disk command 

DSWA2 : l.U *- (RPP j XOR (Seeking); 

G0T0[SeokServico, ALU-0], LU< DCBADDRESS; * jump for seek in progress 
GOTO[SectorAl1, ALU=0], WR *• ClearStatus; * jump for NIL I0CB pointer 

* set WR for possible errors 

* process IOCB 

T <■ ($ExtendBit) (T); * new format lOCBDiskAdr displaced by one 
PFETCIIl[DCBADDRESS, NEWDISKADD]; * get the new seek info 

TASK, PFETCH1[KBADDRESS, OLDDISKADD, CSBDiskAdrj; * get old position 
T<-Val idSeal; 

T«-($Seal) XOR (T) ; 

KDatal <• T; * non-zero implies extended addressing 

GO TO[ . +2, ALU/70], LU <- (KDatal) XOR (Extendi! in t) ; 

GOTO[.+2], T*SectorsPerTrack; * Sea I=ValidSeal 
GOTO[ Tnval idSeal , ALU//0], T<-SectorsPorfrack; * jump for invalid seal 

LU<($Sector[MEWDISKADD |)-(T); 

GOTOfDSWL, ALU> = 0], WR*-3C; * jump for illegal sector, WR <~ garbage? 

lu *■ commandword, goto[.+2, r even]; * test DriveModifior 
newdiskadd «- (newdiskadd) xor (IOCBDrive); 
nop; * call cannot be even target of condtional 
TASK, PSTORE 1[KBADDRESS, NEWDISKADD, CSBDiskAdr]; 

T<-$Track[OLDDISKADD] ; * Is old track 

LU<-($Track[NEWDISKADD]) XOR (T); * . . . the same as new track7 

GOTO [Mo vo A rm, ALU//0], LU<-(COMMANDWORD) AND (SeekOnly); 

GOTO[JustSeek, ALU//0], T<-$Sector[DISKSTATUS]; * jump for seek only 

T<-($Sector[NEWDISKADD]) XOR (T), GOTO[DSWJ6, IOATTEN]; 

DBI GOTO[Sec to rAl 1 1, AtSector, ALIJ//0], RPP<-0C ; * at the right sector? 


"sector wakeup clean up 
Sec to rAll: NOP; 

SectorAIll: WR+SetSeekldle; 

OUTPUT[WR, DSKCMMD], G0T0[DSWJ7, IOATTEN]; * SET SEEK IDLE COMMAND 
NOP; 

UOP;*two m-i after outputs 


* process sector interrupt mask 

PFETCIIl[KBADDRESS, SECTORWAKEUP , CSBSectorMask] , TASK; 

* allow task switch before preceeding storage reference interlocks 
T<-PR0CESSWAKF.UPREG1; 

T <- SECTORWAKEUP"-(SECTORWAKEUP)OR(T) ; * SECT INTERUPT MASK 
** checking IOATTEN causes endless loop ** 

PSTOREl[KBADDRESS, DISKSTATUS, CSBStatus]; * set current disk status 

** warning no tasking allowed from here to the last pstore before DSWC2 ** 
loadpage[0]; * got bits to OR into NWW 

callpfOoInt]; * set NWW and IntPending; uses regs 0,1; no task 

* get link to next DCB 

PFETCHlfDCBADDRESS, DCB, IOCBNext], CALL[IOTask]; 

LU «- RPP, GOTO[DSWCX , R> = 0] ; * Check for error 

DCB <- (DCB) and (0C); * error, don't chain * insure road comp 

WR<-ones ; 

PST0RE1[KBADDRESS, WR, CSBDiskAdr], CALL[IOTask]; 

RPP <- PostlOCB; 

DSWCX: LU <- (RPP) XOR (PostlOCB); * check data loop or seek command 
G0T0[DSWC2 , ALU//0] ; 

LU"-DCBADDRESS; 

G0T0[DSWC4, ALU = 0], LU<-DCBADDRESS; 

* just completed IOCB, post status and edr the IOCB chain 

PSTORE1[KBADDRESS, DCB, CSBNext]; * new DCB pointer to kblock 
PST0RE1[DCBADDRESS, DISKSTATUS, IOCBStatus], CALL[IOTask]; * into deb 

NOP;*wliy is this nop here?77 
T <- DCB; * Chain to new DCB 
DCBADDRESS *- T; * proceed if something there 

DSWC4: RPP<-0C, G0T0[DSWA1, ALU//0]; * jump to process next IOCB 

NOP; * end of IOCB chain 
DSWC2: WR«-ResetWakeup; 

0UrPUT[WR, DSKCTRLA]; * RESET SECTOR WAKEUP 

WReWR, G0T0[DSWTASK]; * INTERLOCK!!!! 

* seek only * NO ERROR interrupt 

JustSeek: PFETCIIl [DCB ADDRESS, PR0CESSWAKEUPREG1, IOCBTransferMask]; 

RPP*-Pos tIOCB , G0T0[SectorAl 11] ; 


* seek in progress 

SeekServico: LU <- (DISKSTATUS) AND (SeekFailed); 

G0T0[SeekFai lure, ALU/70], LU *- (DISKSTATUS) AND (SeeklnProgress); 
G0T0[ . +2 , ALU//0]; 
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RPP<-OC , GOTO[DSWA2] ; * seek done 

G01'0[SectorAl 11]; 

* set arm in motion 

MoveArm: T<-$Disk[OLDDISKADD] : * SEE IF WE ARE CHANGING DISKS 
LU<-( $D i sk[NEWDISKADD]j XOli (T); 

WR<SotSoekIdio, GOTO[SwitchDrive, ALU//0]; * jump to switch drives 

OUTPUT[NEWDISKADD, DSKADD]; * OUTPUT MEW SEEK INTO 

WR<~SendDiskAddross , TASK; 

T«-$Cy I inde r[ NEWDISKADD]; * CHECK FOR CHANCE IN TRACK ADDRESS 

LU*-( $Cy 1 inde rfOLDDISKADD] ) XOR (T); 

GOTO[.+2, ALU//0], RPP«-Sebki ng; 

PSTOREi[KBADDRESS, NEWDISKADD, CSODiskAdr], GOTO[DSWTASK]; * lid switch 
OUTPUT[WR, DSKCTRLB]; * SET SEND DISK ADDRESS 

WR^SotStrobo; 

OUTPUTfWR, DSKCTRLA]; * set strobo 

G0T0[Scctoi'A I i "|, RPP«-Seeking ; « SET SEEK f lag 

* switch drives 

SwitchOrivo; OUTPUT[WR, DSKCMMD]; * SET SEEK IDLE COMMAND 

WR<--Rese tWakeup; 

OUTPUT[WR, DSKCTRLA]; * RESET SECTOR WAKEUP 
OUTPUT[NEWDISKADD, DSKADD]; * DISK CHANGE OVER 
WR«-ones ; 

T<-WR<-(WR) XOR (lOCBDrive); * don't clobber drive 

NEWDISKADD<-( NEWDISKADD) OR (T); 

PSTORF.l[ KB ADDRESS, NEWDISKADD, CSDDiskAdr]; 

GOTO[DSWTASK], RPP<-Soek ing; * WF. WILL RE-DO SEEK AFTER DISK CHANGEOVER 
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* on right sector, prepare for transfer 
AtSoctor; nop; 

TASK, PFETCH 1[0CBADDRESS, KData, IDCRHeaderPoin tor] ; 


•translate alto style read/check/write Into IRDC style 
* The commands for each field are as follows 


4 . 

Alto 

function 

IRDC 

Lot 

xa 

- high order 

bit of alto function 

* 

00 

read 

10 

Lot 

y* 

= low order 

bit of alto function 

* 

01 

check 

11 

Lc t 

x i 

-■ high order 

bit of IRDC function 

* 

11 

write 

01 

Let 

y 1 

= low order 

bit of IRDC function 

H* 

10 

write 

01 


then 

xi = ~xa and yi - xa 1 ya 


* The old method uses 24. words of code and executes 6 instruction to do the 

* command translation. Notice with awe that tho new method uses but 6 words 

* of code and excutes 6 instructions. 

T <- (COMMANDWORD) AMD (HeaderLabelOataMask); * get command Mold 

Wit <- T; 

Wit «- (RSHfWR, 1]) OR (T); * shift high bits over low 

Wit <- (WR) AND (124C); * low order bits 

task,T *- (COMMANDWORD) ornot (250C); 

WR «■ (WR) ornot (T); 

RP<-0C; 

THIcado rS ize, CALl.fSetShortFloldConstants]; 

WP*-0C, GOTOfDSWJlO, IOATTFM]; 

0UTPUT[WR, DSKCMMD]; * output command to disk 
Process Field; CP*-ResetWakeup; 

OUTPUTfCP, DSKCTRLA |; * reset sector wakeup 

WIHDa taTa s kA i 1 ow; 

0UTPUT[WR, DSKCTRLB]; • set DATA TASK ALLOW 

CP'CPRead; * assume read 
DISPATCIIfCOMMANDWORD, 10, 2]; 

DISP[.+rj; * header, label and data all use this dispatch 
READMEMCOUNTHDC, GOTO[FieldAll), ATfDCommandQase, IOCBRoad!]; 

WR<WakeMoForOutput, GO 1OfCheckField], AT[DCommandOase, IOCBChecklj; 
WR<-WakeMeForOutput, GOTOfWri teF iel d ] , AT[DCommandBase , IOCBWr i to ! "J ; 

WR*WakeMeForOutput, GOTO[WriteField], AT[DCommandBase, IOCBWrite1!] ; 

* check field on disk drive 

CheckFIeld: OUTPUT[WR, DSKCTRLB!; 

CP* CPCheck, GOTOfFieldAl1]; * FOR PRELOAD 

* write field on disk 
WriteField: OUTPUTfWR, DSKCTRLB]; 

CP* CPWri te; 

WRITEMEMCOUNT<~OC; 

WR*-1C; 

•■•••warning no tasking allowed between tho two outputs for buffer 
OUTPUTfWP, DPWP]; * OUTPUT WRITE POINTER 

OUTPUTfWR, DBUFFER], GOTO[DSWJL12, IOATTENJ; * OUTPUT SINC WORD 
WP*-(WP)*1; 

* read, write, and check all flow through here 
FieldAll: T<- KData, call[cRoturn]; * allow task switch 

DISPATCHfCP, 15, 3], GOTOfDSWJL, IOATTENJ; 

WR<- T, DISP[.*-1]; * set WR for storage alignment calculation 
CP*-Wr i teP i ng , GOTOflieadDi sk] , AT[DPingBaso, ReadPing!]; 

CP*-ReadPi ng , GOfOfWriteDisk], ATfOPingBase, WriteP ing!]; 

CPiCPRead, GOTOfReadDisk], ATfDPingBase, CPRead!]; 

T*-366C, GOTOfDoCheck] , ATfDPingBase, CPCheck]]; 

CP* CPWrito, GOTOfWriteDisk], ATfDPingBase, CPWrite!]; 

* Check field of sector 

* Microcode uses write logic, but hardware docs not actually write on disk. 

* Both header and label fit in the 20 word hardware buffer. The header and 

* label code first copies the entire field into the buffer using the main 

* write loop. The hardware then reads the disk and leaves the result of the 

* check operation in the buffer. The code then writes the results back into 

* the central store by falling into the main read loop. 

* The microcode tries to win on the data field, but the algorithm appears 

* buggy. Note that CP is set to CPRead when control falls out of the main 

* output loop. This prevents control from passing back through DoCheck. 

DoCheck: LU<-( READMEMCOUNT)-(T); * can't check too large a block of data 

LU<( RPP) XOR (PostlOCB), GOTOfWriteDisk, A1.U> = 0]; 

CP*-RoadPing, G0T0[.+2, ALU=0]; * bug? eventually resets CP to CPRead 

CP*-CPWrite, GOTOfWriteDisk]; * header or label 
WR*-DataTaskAllow; * processing data field 

OUTPUTfWR, DSKCTRI.B] ; 

WR*-(WR) , GQTOfFiel dAl 1 ] ; * STOP KOB BUFFER 

* output loop (read store and send data to the disk kob buffer) 

* [if quad align and wc>4 do iofetcl)4 else do output one] 

*«***« warning no tasking allowed between the output wp and tho buffer command 
WriteDlsk: T <- ReadMemCount; 

WR *- (WR)+T; * WR has a copy of KData 

LUt-(WR) AND (3C); * CHECK QUAD BOUND 

GOTOfDDWPl, AI.U//0] , LU<-( ReadMemCount)-(4C); 

GOTOfDDWP, ALU<0] , T <- (ReadMemCount)- 1; 

* quad word write to disk works hero 

WP*-(WP)+(3C); * next instruction allows write of WP before tho output 

ReadMemCounti(ReadMemCount)-(3C), call[cReturn]; * CHECK COUNT >3 

OUTPUTfWP, DPWP]; * OUTPUT WRITE POINTER 

nop; * two m-1 after output 

T *• ( ReadMemCount)-1; 

I0FETCH4[KData, OPUT], GOTOfDDWV]; * OUTPUT 4 WORDS 

* write a single word onto disk 
DDWP1; T *- (ReadMomCount)-l; 
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PFETCHl[KDaU, WR]; * GF.T ONE FROM MEMORY 

OUTPUTfWP, OPWP]; * OUTPUT WRITE POINTER 

OUTPUTfWR, DBUFFER]; * OUTPUT ONE 

ReadMomCount*(ReadMemCount)-1; * DOWN COUNT WORD COUNTER 

GUTO[.+2, ALU*0], WP*-(WP)+1; * jump for end of field 

GOTOfFieldAllj; 

CP«-CPRoad ; * STOP WRITING 

WR«-DataTaskAl Iow; 

OUTPUTfWR, DSKCTRLB]; * STOP KOQ BUFFER 
l.U«-WRITEMEMCOUHT, GOTO[DDWUl]; 

* input loop (wo road kib buffer and send data to the main store) 

* if quad align arid wc;>4 do then iostore4 else do input one 

* if wc<4 sot force wakeup on one, in the disk and set cp = to one for 

* termination 

•"♦•♦•warning no tasking allowed botween the output rp and the buffer command 
RoadDisk: T <- WritoMemCount; 

WR <- (WR)+T; * WR has a copy of KQata 

I.U*-(WR) AND (3C) ; * CHECK QUAOBOUND 

GOTO[Di)WO, AL..U//0] , LU<-(WritcMomCoun t) - (4C); 

GOTOfDDWO'l, AI.U<0], T *- (WritoMemCount)-1; • CHECK COUNT >3 

* quad word read from disk works liere 

WritoMemCount<(WriteMemCount)-(3C); 

RP<-( RP) + (3C), cal 1 [cRETURN] ; 

0UTPUT[RP, DPRP]; ♦ OUTPUT READ POINTER 

T <•■ (WritoMemCount)-l; 

RP«-(RP) + 1; • invoke interlock so that pointer ok before data arrives 
I0ST0RF.4[KData, IPUT], GOTO[DDWUJ; • INPUT 4 WORDS 

* read a single word from disk 

DDWO: T <- (WritoMemCount)-1; 

DDWOl: OUTPUT[RP, DPRPj; • OUTPUT READ POINTER 

RP*-(RP) + 1; * invoke interlock so that pointer ok before data arrives 
INPUTfWR, DKIB]; • INPUT ONE TO WR 

PSTORElfKData, WR]; • PUT IT IN MEMORY 

DDWU: WriteMomCoun t*-(Wr i teMemCount)-1; * DOWN COUNT WORD COUNTER 

DDWU1: GOTO[EndFi el d, ALU=0], LU<RPP; 

LU«-RSH[Wri teMemCount, 2]; 

GOTO[. + 2, ALU//0] , WRrWakeMeEve ryWord; 

OUTPUTfWR, DSKCTRLB], G0T0[FieldAI I]; 

GOTOfFieltlAll]; 

* dispatch for next field 

EndField: GOTOfStarlLabeI, ALU=0], LU<-(RPP) XOR (LabeiFiag); 

GOTOfStartData, ALU=0], RPP<-PostIOCB; * LABEL done, DO DATA 

GOTOfEndSector]; 

* prepare for the label field 

StartLabel: PFETCHlfDCBADDRESS, KData, lOCBLabe1Pointer]; 

T<-Label Si ze, CAl.LfSctFi el dConstants]; 

RPP<-Label Flag, GO T 0[ Nex IF ie i d] ; ♦ fl ag for label 

* prepare for the data field 

StartData: PFETCH1[DCBADDRFSS, KData, TOCBDataPointer]; 

T<-Da taSize , CAI LfSetF ioldConslants] ; 

NextField: C OMM AM DWORD*~LSH[ COMM AN DWORD, 2], GOTO[ProcessField]; 

* clean up after a data transfer 

* ddwz+4 is the sector wakeup point after a data transfer 

*♦• warning must reset data task allow before tasking 
EndSector: WR<-WakoupAli ow; 

OUTPUffWR, DSKCTRLB]; * turn off data task allow 

WR <- WR, call[cReturn]; * interlock on WR insures complete before task switch 

nop; * for the task, task must happen before this pfotch 

TASK, INPUT[DISKSTATUS, DSTATUS]; * status (after next sector mark) 

PFETCHlfDCBADDRESS, PROCESSWAKEUPRF.G 1, IOCBT ransferMask] ; » NO ERROR INTERRUPT MASK TO PROCF.SSWAKEUPREG 1 

DISKSTAfUS<-(DISKSTATUS) XOR (SectorMask) ; 

DCSKSTATUS*-(DISKSTATUS) OR (IOCBStatusVal id) ; 

WR<-C1 earStatUS , GOTOfDSWJLl, IOATTEN]; 

OUTPUTfWR, DSKCTRLA]; 

GOTO[ Secto rAli ] , RPP«-Post IOCB; 

DSWJL1: GOTOfDSWJ]; 

* set counts and pointers for field processing, call with field size In T 
SetFieldConstants: LU «• KDatal; 

ReadMemCount <- T, use CTask, GOTOfSetShortFieldConstantsl, ALU=0]; 

PFetclilfDCB ADDRESS, KDatal, IOCBAddressExtend] ; 

WriteMemCount «■ T; * avoid PEctch/pass around path problems 

LU <- (WritoMemCount) XOR (LabelSize); * kludgy test for label or data 

G0T0[.+2, Al.U-0]; 

KDatal <- SDataExtendfKDatal], GOTO[.+2]; 

KDatal <- SLabel ExtendfKDatal]; 

KDatal «- T «- ISIIfKDatal, 10]; 

KDatal *- ( RSII[ KDatal, 10]) + 1; 
use CTask; 

KDatal «- (LDF[ KDatal, 10, 10]) OR (T), return; 

SetShortFieldConstants: ReadMemCount «- T, use CTask; 

SetShortFieldConstantsl: WriteMemCount <- T, return; 

* task switch only for non-emulator wakeups 
lOTask: LU<-APCTASK; 

use CTASK,GOTOfcRETURN, ALU=0]; 

NOP; 

cRETURN: RETURN; 

* errors come here 

SeekFailure: NOP, GOTOfDSWJ]; • error entry points to DSWJ, error handler 
DSWJ6; NOP, GOTOfDSWJ]; 


DDWP : 

DDWV: 
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DSWJ 7: NOP, G0T0[DSWJJ; 

DSWJ10:NOP, GOTO[DSWJ]; 

DSWJ: INPUTfDTSKSTATUS, OSTATUS]; * get disk status 

DISKSTATUS*(DISKSTATUS) XOR (SectorMask); * invort. sector Info 

DI 3KSTATUS*-( DISKSTATUS) OR (IOCBStatusVal id); * install 17 for alto 

DISKSTATUS«-( DISKSTATUS) Oil (lOCBHardwarcError); 

* orrcivt *■ (errcnt) + 1 ; 

WR<-WakeupAllow; ***** warning this has to be done before tasking 
OUTPllT[WR, DSKCTRLBj; * clear data task allow, it might bo set 

* GET ERROR MASK, TASK BUT DOHT CHECK ATTEN 

* the current status will be posted into kblock and tho deb 

DSWM: RPP*-ones; * SET ERROR FLAG into state control 

nop;*two mi after output 

PFETCH1[DCBADDRESS, PROCESSWAKEUPREG1, IOCBErrorMask],call[citeturnj; 

* NOP; * allow task, switch before precoeding storage reference interlocks 
LU< OCBADORESS; 

G0T0[DSWX, ALU//0] , WR*-ClearStatus ; 

PROCESSWAKEUPREGU-OC; * clear my interrupt, rogester 
DSWK: 0UFPUT[WR, DSKCTRLA], G0T0[SectorAl V]; * DO A CLEAR STATUS 

* IOCB command not valid 

Inva 1 idSual: DISKSTATUS*-(DISKSTATUS) OR (IOCBCheckError), GOTO|;DSWK] ; 

* illegal sector 

DSWL:DISKSTATUS*(DISKSTATUS) OR (IOCBI11egalSector), GOTO[DSWM]; 

DSWJL12:G0T0[DSWJ]; * error entry points 

DSWJ L: GOTO[DSWJ]; 


cnd[dm]; 
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TITLE[t:therDefs]; * Defs for DO microcode emulating A: to Ethernet 

‘Last modified by Murray on Snptember 27, 1979 4:03 AM, Add E.EdloTimer, EIReset 

* modified by Johnsson on February 15, 1979 4:01 PM 

SET TASK [0]; ‘For R addressing 

MC[ EOReset, OR0[ LSII IFTT EOTask,4],0]]; 

MC[E IRoso t, OR0[LSHIFT[FITask,4],0]]; 


* Ethernet I/O Address Registers 
Set[F.IData, 3]; * Input data 

SetfElllost, 1]; * Input data 

Set[FStatus, 2]; * Status/State register (read) 

SelfEOData, 1]; * Output data 

Set[EReadState, 2]; MCfERState, 2]; * State register read 

Swtf f.Wri teState , 0]; MC[EWStato, 6 j ; * State register writo 


* State Register command words 
MCfESetPurgcMode, 260]; 

MC[ESetOutputEOP, 107]; 

MC[EK nab I e Input, 220 ]; 
MC[ECnableOutput, 103]; 

MC[EDisabIelnput, 200]; 

MC[EDisab 1eOutput, 100]; 

MC[ED isablelnputOutput, 300]; 


Enables input 
Enables output, Jam 

Enables Jam 

* Clears OutputEOP, disables Jam 
Disables input, output, clears outputEOP, Jam 


* Status bits 
SET [ ESICOL.L , 200]; 
SET [ESODL, LOO]'; 
SET [ I Si 01., 40]; 

SET [ESOCOLL, 20]; 
SET [ESCRC, 10]; 

SET [ESOFAULT, 4]; 
SET |ISOPAR, 2]; 
SET [ESICMD, 4]; 

SET [ESOCMD, 2]; 
SET I'ESIT, 1]; 


Receiver-detectod collision (Jam) 

Output data late (Underrun) 

‘ Input data late (Overrun) 
Transmitter-detected collision (Collision) 

* Rad CRC 

Output DataFault (masked for now) 

* Output Bad Parity (masked for now) 

* Input command issued *" Mot in hardware: 
Output command issued ** for Alto emulation only 
Incorrectly terminated packet (Bad Alignment) 


MC[ETSMASK, ESIDL, CSCI1C, ESIT]; * Status bits reported for input command 

MC[EOSMASK, ESODL, ESOCOLL]; * Status bits reported for output command 
MC[ECMD6ITS, ESICMD, ESOCMD]; * Command bits 


* R- registers for input and output task 

RVfF.Basc, ()]; * Base register for first 64K space; 0 and 1 used by Dolnt 

RV[ EBascll i , 1]; 

RVfFPfR, 2]; * Buffer base register 

RV| EP I Rll i , 3 ] ; 

RV( I'.Count, 4J; * Main loop counter 

li'/j I 11 MP, 0]; * Temporary regis ters 

RVf ETEMP l, (»]; 

RV[ETCMP2, /]; 

RV] EF lag , AND8[0R@[ LSII I ET[ E TTas k, 4] , 10] , 7 7] ] ; * input under output flag ( reg 10 of EITask) 

MC[pERandomRog, 37/]; * Number of random number (REER register) 

MCfplONoiifyReg, 340]; * Register used for timer notify 


‘Dispatch table locations 
Set[EF.tlase, L.SHIFT[ELPage, 10]]; 

Set[EESIOLoc, ADD [EEBaso, 20]]; * Dispatch location for SI0 

‘Address constants 

Set [ EOS ta rtl-Oc., ADD[LSIIIFT [EOPage, 10], 120]]; * Output ^notify location 

Set[EOTimorDonoLoc, ADD[LSIIIFT [EOPago, 10], 130]]; * Output TimerDone notify location 

Set[f IStartLoc, ADOfLSIlIFT [EiPage, 10], 140]]; * Input notify location 
Set] EI Abo rtLoc, ADD[LSIIIET [EiPage, 10], 150]]; * SIO abort notify location 


* Control block addresses (for Alto emulation, relative to 600) 

MC[EPl.OC, 0|; * Post location 

MC[EPL0C1, 200]; * Post location (relative to 400) 

MC[EBl.OC, 1]; * Interrupt bit mask 

MC[EBL0C1, 201]; * Interrupt bit mask (relative to 400) 

MC[EEL0C, 2]; * Ending word count 

MC[ EI..L0C, 3]; * Load mask 

MCfEICLOC, 4]; * Input count 

MC[EICL0C1, 204]; * Input count (relative to 400) 

MC[EIPL0C, 5]; * Input pointer 

MCfEOCLOC, 6]; * Output count 

MC[E0PL.0C, 7]; * Output pointer 

MC[EHI.OC, 10]; * Host address for address recognition 

MC[EHL0C1, 210]; * Host address for address recognition (relative to 400) 


* Timer masks (slot is EOTask) 

Set [ETiinerRunning, 8]; * State 5 is simple timer 

Sot [ETimerldle, 4]; * State 4 is idle 

MC[F.fimerMask, LSHIFT [ETiinerRunning, 14]]; 

MC[EIdleTimer, LSHIFT [ETimerldle, 14]]; 

* ether constants required in both 1n1t and code (Midas mesa only) 

* Microcode post codes (small integer in left half, ones in right half for X0R). 

* Note; value is complemented to get constant less than 8 bits. Use XN0R for formation of post code. 

MC[ESID0N, NOT®. [37 7]]; * Input done 

MC[ES0D0N, NOT® [777]]; * Output done 

MC[F.SIFUL, NOT® [1377]]; * Input buffer overflowed 

MC[ESL0AD, NOT® [1777]]; * Load overflow 

MC[ESCZER, NOT® [2377]]; * Word count zero in input or output command 
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MC[ESADRT, NOTQ [2777]]; * Command aborted (by SIO) 

* Miscollancons 

MC[F.COLLMASK, 10000]; * Mask for collision detection 
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iuse rt[d01 ang]; 

NOMIDASIM.IT; LANGVERSION;MULTDID; 
inso rt[G1obalDefs]; 
insert[EthorDefs]; 

t i tl e[E thorluit ] ; 

"Last modified by Murray on September 12, 1979 7:35 PM Add Dummy Output task Init 

•Last modified by Jolinsson on April 7, .1979 12:32 PM 

SET TASK [0]; "For register addressing. This code really runs at task level EITask 

* ETHERNET INITIALIZATION subroutine (executed by EITask). 

* Will only bo called if there is an Ethernet board in the machine. 

* Road Ethernet ID from board and form constant to be returned by SIO. 

ON PAGE [EthorlnitPago]; 

Etherlnit: T <- GETRSPEC[103] xor (3770), atfEtherlnln itloc]; *Stkp (inverted) 

LOaso «- pEllostRegx; "EHostRcg is in the emulator's R space 
Stkp <- Eflase; 

InputfStack, Elliost]; 

Stack (Stack) AND (377C); * ID in right half 

Stack e (Stack) OR (77400C); 

* Compute value for EONotify register, used for notify after timer wakeup. 

EBase <- AND8[0377, EOT ime rDonoLoc]C ; * Low 0 bits of APC 

Ellase «- (EBase) OR (0R@[ I Shi ft [ EOTask, 14] , AND@[ 7400, EO TiinerDorieLoc]]C) ; * High 4 bits of APC 

EBaselli *• pEONotifyilog; 

Stkp «■ EBaselli, EBaselli T; 
f <■ EBase; 

Stack *- T; 

RETURN, Stkp *■ EBaselli; "restore Stkp 

"Note - base registers are initialized each time input or output is started, so wo 
*do not need to do it here. 

RETURN, at[EtherOutInitLoc]; "Dummy Init for Out Task, 
endfothorinit]; 
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1nsort[d01ang]; 

NOMIDASTNIT;LANGVERSION;MULTDIB; 
inso rt[GlobalDofs]; 
irisort[EtherDefs]; 

title[F.ther - Task]; 

•Last modified by Murray on September 27, 19/9 6:21 AM, Update for split state register 

* modified by Murray on September 19, 1979 3:40 PM, Turn off Timer 

* modified by Chang on May 31, 1979 1:09 PM, MIDAS Overlay 

* modified by Chang on May 20, 1979 2:01 PM, nail down EESIO 

11 modified by DRD on Marcli 23, 1979 10:34 PM 

* added RS232 SIO code dispatch 

* Modified by Johusson on April /, 1979 12:33 PM 

SET TASK [0]; 

* EMULATOR TASK -- SIO instruction 

ON PAGE [EEPago]; 

•This code executes at task 0 

* We got here after the SIO Instruction has been issued. 

* TI 10 SIO control bi ts are in T (bits 16,17). 

* Get host address constant for Ethornet 

•RTEMP1 * 1 if called from Mesa, 0 if called from Nova 

•This code is really part of the emulator, and uses its temporary registers 

EF.SIO: AC0 <- T, at[EEStartLoc]; “save control bits (useful only if called from Mesa) 

T «- LDF[AC0,10,2]; 

RTemp <• AND®[377, RS232SIOLoc]C; 

RTemp «- (RTemp) OR (0R@[ LS!IIFT[ 16,14 ], AND0[OO 7400 , RS232SI0Loc] |C); 

RTemp <- (RTemp) OR (T); 

APC&APCTask <- RTemp, TASK; 

Return; 

T «- 17 7 C; 

T «• (Idf [ FTIos t Reg, 0, 10]) xor (T); *these bits will bo 177b if the init code was run 
*(i.o. if there is an Ethernet board in the machine), and will bo zero otherwise 
T <• Elios tReg, go lo[EESIODisp,ALU = 0]; 

AC0 <• 0C; 

AC0 (AC 0 ) xnor ( 100000C) , go to[ F F.SIOO] ; ’return 7777 7b in AC0 if no Ethernet board 

* Dispatch on low 2 bits of AC0 

EESIODisp: Dispatch[AC0,16,2]; 

AC0 *- r, DISP [ EESIO0]; * Host Address 

* 00 -- Do nothing 

EESIO0: lu <- RTEMP 1, db 1 go to[ EF.MosaRe t, HENovaRe t, Rodd] , AT[EESIOLoc, 0]; 

FLNovaRet: 1oadpagefnePago]; 

FF1@[17], gotop[neNoskip] ; 

EEMesaRet: loadpago[7]; 

gotop[P7Ta i 1]; 


• 01 -- Start transmitter 

* Form APC&APCTask word to notify the output microcode 

Et’SlOl: RTEMP «- AND0[O377, EOStartl.oc |C, AT[EESIOLoc, 1]; * Low 8 hits of APC 

GOTO [EESIONotify], RUMP «- (RTEMP) OR ( OR@[ I sh i f t[ FOTask , 14] , ANDf>[007400, EOSta rtLoc]]C); 

• 10 -- Start receiver 

* Form APC&APCTask word to notify the input microcode 

EF.SI02: RTEMP *- AND@[0377, ElStartl.oc'JC, ATf EFSIOLoc, 2); • Low 8 bits of APC 

EESI02A: GOTO [EESIONotify], RTEMP <- (RTEMP) OR (OR0[1shift[Ellask,14],AND0 [007400, FIStartEoc]]C); 

* 11 -- Reset interface, i.o. abort. Input task is notified to post abort. 

EF.SI03: G0T0[EESI02A], RTEMP <- AND@[0377, EIAbortLoc]C, AI[EESIOl oc, 3]; * Low 8 bits of APC 

• Notify appropriate code 
EESIONotify: 

RCNT <- AHD0[EOTask, 17]; 

RCNT <- (RCNT) + (EIdle!inter); 

LoadTimcr[RCNT]; 

T *- EOReset; 

RCNT <- (EDi sab I elnputOutput); 

0UTPUT[RCNT]; 

CALL[ ET as k Ret ] , APC&APCTASK <- RTEMP; 

lu <- RTFMP1, dbIgoto[EEMesaRet,EENovaRet,Rodd]; 'control returns to hero when emulator next runs 


* INPUT TASK MICROCODE 


ON PAGE [ElPage]; 

Input microcode is notified at ElStart by the emulator (at SIO). 
Some initialization is done, and the TPC set up to EIIDLE. 
Initialize, enable hardware, and TASK 


ElStart; CALL [EINIT], ETemp 

* Wake up here when first word of a 

* Address filtering. 

EIIDLE: INPUT [ETemp2, EIData]; 

T <- RSH [EIemp2, 10]; 

SKIP [ALU//0]; 

GOTO [EIBegin], EFIag «• 1C; 
PFetchl [EBase, ETempl, EHLOC!]; 
LU (ETempl) XOR (T); 

SKIP [ALU//0], LU *- ETempl; 

GOTO [EIBegin], EFiag «- 1C; 

GOTO [F.IPurge, ALU//0]; 

GOTO [EIBegin], EFiag <- 1C; 


<- EEnabl elnput, AT [ EIStartLoc] ; 
new packet arrives. 

* Read in first word 

* Right justify destination host in 

* Check for broadcast 

* Broadcast packet 

• Fetch host address 


AlU=0 => destination host 3 me 
Packet for me 

ALU-0 => host is promiscuous 
Packet for me 


T 


* Packet not accepted by filter, so tell hardware to ignore the rest of this packet. 

* Purge packet, and TASK 

ElPurge: ETemp <- ESetPurgeMode; 
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OUTPUT [Elemp, EWrlteState]; 

CALL[ETaskRet]; 

* Makeup here at start of next, packet 

GOTO [EIIDLE]; 

* Packet accepted by filter. 

* EFLAG is set to 1 to toll the output microcode that a packet came in 

* (used Tor input under output). 

* Disable output task if it is on (probably in retransmission wait). 

EIBog in: T <■ EOReset; ** 

ETcmpl «- EDi sableOutput; 

* OUTPUT [ETcmpl]; Oops, kills us, not him. 

CALL[F.TaskRet]; 

* Set up EPtr and ECount for single word transfers. 

CALI.[EDSetup], T <- EICLOC; * Set up F.IPTR, ECount 

* Subroutine returns with: EPtr IPtr t- ICount - 1, ECount ~ - ICouut 

* Check if buffer count zero. If not first word gets stored in EIAlign loop. 

GOTO [ElCountZero, R>=0], T <- ECount <- (ECount) + 1; * R>-0 -•> count is zero 

* Chock buffer alignment. 

* Compute how many singles before first guadword, and form loop counter in ETeinpl. 

* Address: xOO => no singles, loop count = -1 

* Address: xOl = > 3 singles, loop count = 2 

* Address: xiO => 2 singles, loop count = 1 

* Address: xll => 1 singles, loop count = 0 

T <• (FPtr) + (T) + 1; * Form start address in T 

ETeinpl <- (ZERO) - (T); * Complement, increment 

ETeinpl <- (LDF[ETeinpl, 16, 2]) - 1; 

CALL [EIAlignE], T < ECount; * Sot return for EIAlign loop 

EI Align: GOTO [ETQuad, R<0], ETcmpl *• (ETeinpl) - 1; 

GOTO [EIBufFul 1 l, R> = 0], T <- ECount <- (ECount) 1 1; 

INPUT [E remp2, EIData]; 

LU «- ETeinp2; * Abort 

EIAlignE: RETURN, PStorel [EPtr, F.Temp2]; 

* Now start guadword output. 

* Adjust EPtr and ECount for 1-word transfers. 

EIQuad: ECount *■ (ECount) + (3C); 

CALL [EILoop], EPtr <- (EPtr) - (6C); * Set return address for EXl.oop 

* Read the Hardware Input Buffer into the Main Memory In Buffer. 

EILoop: GOTO [EIQuadFull, R>=0], T <- ECount < (ECount) + (1C); 

GOTO[EIA11n, IOATTEN]; 

RETURN, IOStore1[EPtr, EIData]; 

* Get hero when no more room for quadwords in buffer. 

* Check IOATTEN is high to seo if end of packet. 

EIQuadFull: GOTO [EIAttnl, IOATTEN]; 

* Not end of packet. Do singles to fill buffer. 

* 7-ECount = number of singles remaining in buffer. 

* Set up loop counter as (- No. singles), and read in singles. 

ECount <- (ECOunt) - (7C) ; 

CALI [IlSingles]; 

ElSingles: GOTO [EIBufFull, R>=0], ICount <- (ECount) + 1; 

GOTO [EIAttnS, IOATTEN], T <- (ECOunt) + (6C) ; * Set up T for PStorel 

INPUT [ETemp, EIData]; 

LU <- ETemp; 

RETURN, PStorel [EPtr, ETemp]; 

* Wo get here when IOATTEN is detected in EILoop. 

* Number of word loft in buTTer - 7 - ECount + 1 (CRC) 1 - Excess count. 

EIAttnl: NOP; 

EIAttn: INPUT' [ETemp, EStatus]; * Road Status 

T <- EDE[ETcinp, 10,2]; * Isolate Excess Count 

ECount <- (ECount) XNOR (0C); * Complement 

ECount «- (ECount) 1 (11C) ; * Increment, add 8 

ECount *- (ECount) + ( r) ; * Add excess count 

EIAttn2; 

* T <- ETemp; 

* ETemp «- (ETemp) AND (121100C); 

* SKIP [ALU=0]; 

* NOPXBREAKPOINTX; 

* ETemp *■ T ; 

ETemp <- (RSII[ETomp, 10]); * Shift down status 

ETemp <- (ETemp) AND (FISMASK); " Mask out uninteresting status bits 

ETemp <- (ETemp)XNOR(ESIDOM); * Pos t input done status 

* Store EECLOC. 

E.IPost: CALL[ETaskRet], PStorel [EBase, ECount, EELOC!]; 

* Post status, disable interface (purge packet too), and TASK. 

* Post status in ETemp, disable value in ECount. 

EIPostA; ECount <- EDisable Input, CALL [EPost]; 

* End of packet. 

EBaseHi <- 0C; *ropair base registes smashed by EPost (Dolnt) 

EBase «- 200C; 

EBase <- (EBase) or (100C), GOTO [EIIDLE]; 


* Get hero when an IOATTEN is detected during the ElSingles loop. 

* Number of words left in buffer = 1 - ECount + 1 (CRC). 

EIAttnS: ECount <- (ECount) XNOR (0C); * Complement 

ECount <- (ECount) + (3C); * Increment, add 2 

GOTO [EIAttnZ], INPUT [ETemp, EStatus]; 

* We get here when the input buffer is exactly full. 

* First chock if IOATTEN is high, indicating that the last word was the CRC. 

EIBufFul11: NOP; 

EIBufFull: SKIP[NOATTEN], ETemp <- 1C; 

GOTO [EIAttn2], INPUT [ETemp, EStatus]; *Last word input, was CRC 

* Read one more word to seo if the next is the CRC word (which we will discard). 

ECount <- 0C; * No words left in buffer 

CALL[ETaskRet], INPUT [ETemp, EIData]; 

* After wakeup, check IOATTEN. 

NOP; * Can’t check for Attn here 

GOTO [EIAttn2, IOATTEN], INPUT [ETemp, EStatus]; * IOATTEN => Word was CRC 

ETemp <- 0C; 

GOTO [EIPOST], ETemp <- (ETeinp) XNOR (ESIFUL); * Input buffer overrun, post status 
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* Get here If input buffer lias zero word count. Post. 
ElCOuntZero: ETemp *- OC; 

GOTO [ElPost], ETemp «- (ETemp) XNOR (ESCZf.R); 


* Input microcodo is notified lioro by emulator S.TO whon AC0[16:17] = 3. 

* Manufacture "Abort" status and post. (Input hardware will be disabled again, which doesn't matter.) 

EIAbort: EUasolli *■ OC, AT [EIAbortLoc]; * Set up base pointer to loc 600 

EBaso «- 200C; 

EBase <- (EOase) OR (400C); 

ETemp ECMDBITS; 

GOTO [EIPostA], El'cmp <- (ETemp) XNOR (ESABRT); 


* Alto-emulation OUTPUT MICROCODE 


* Output microcodo is notified at EOStart by the emulator (at SIO). 

* Some initialization is done, and the TPC set up to E0IDLE, enable hardware and TASK. 

EOStart: CALL [EINIT], ETemp <- F.EnabloOutput, AT [EOStartloc]; 

* Idle state of the Ethernet output task 

EOIDLE: PFetchl [IBase, ETempl, ELl.OC!]; * Ketch current load 

SKIP [R>-0], T (LSIIfETompl , 1]) + 1; * Form new load, chock if old overflowed 
GOTO [F.OLDOV], ETemp OC; * Post Load overflow status 

ETemp *- T; * Store updated load in ELl.OC 

T <- ELLOC, TASK; 

PStorel [EBaso, ETemp]; * Store new load 

* Compute countdown interval 

* Got random number from "random" register (REFR register used). 

T «- Stkp; * Save Stkp and 

ETemp? «- pERandoinReg; * point to "random" reg ister 

Stkp <■ ETemp2, ETemp2 <- T; 

T *- LDF [Stack, 4, 10]; * Get bits 4-13 
Elump2 <- (ETemp?) XOR (377C); * Complement Stkp value 

Stkp <- ETemp2; * and restore 

ETempl <- (ETempl) AND (T); * Mask random number (ETempl has Load mask) 

GOTO [EOSetup, ALU=0], ETempl <- LSH[ETempl,1]; * Scale for 5.44 us ticks 

T < (LDF[ETemp 1, 7, 2]) - 1; 

ECount *- T, TASK; * Save high part (minus 1) (2 bits) 

EFlag <- OC; * Clear Input under Output Flag 

ETempl <- l.DF[ETempl, 11, 7]; * F.Tcmpl now has low 7 bits of random number 

* Before starting tinier, check if input is set up. 

* If the input word count is nonzero, enable the receiver while waiting to transmit. 

PFetchl [EBaso, ETemp, EICLOC!]; 

LU «- ETemp; 

T <- EIReset; 

SKIP [ A LU = 0 ] , ETemp *■ EEnab 1 elnpu t; 

0UTPUT[ETemp]; 

ETemp < EDisnbleOutput.; * ALU-0 => no input sot up 
OUTPUT [ETemp, EWriteStale]; 

* Start simple timer with low 7 bits of random number. 

* Timer slot is EOTask. 

ETemp2 <- ETimerMask; * Compute timer word 
T <- CTASK; * Timer slot is same as output task no. 

T <- (ETemp?) OR (T) ; 

EOLoadTimer: ETempl <- I SII[ETempi, 4]; 

ETempl < (ETempl) OR (T), TASK; 

LoadTimer[ETemp t]; 

* Timer has expired. Chock if input (under output) came in. 

EOTimerDone: GOTO [EOMoreTime, R EVEN], LIJ «- EFlag, AT [ EOT line rlloneLoc]; * Check if pkt came in 

ETemp <- EDisableOutput; * If so, abort output 

OUTPUT [ETemp, EWritoState]; 

CAl!.[ ETaskRet] ; 

NOP; 

* Check if still more time to elapse before start of transmission (High part of random number >-0). 

EOMoreTime: ETempl <- 177C; * Set up maximum timer value 

GOTO [EOLoadTimer, R>=0], ECount <- (ECount) - 1; 

* Enable output and shut off the receiver (in case it was turned on). 

EOBegin: T <- EIReset; 

ETeinp <- El) isabl etnput; 

0UTPUT[ETemp]; 

ETemp «- ( EEnab I eOutput); 

OUTPUT [ETemp, F.WriteState]; 

* Set up EPtr and ECount for single word transfers. 

EOSetup: T <- EOCLOC; 

CALL[EBSetup]; 

* Subroutine returns with: EPtr = OPtr + OCount - 1, ECount = -OCount 

* Check for zero count. 

GOTO [EOCountZero, R>=0], LU <• ECount; * R<0 ~-> count is zero 

* Compute how many singles before first quadword, and form loop counter in ETempl. 

* Address: xOO -> 110 singles, loop count = -1 

* Address: xOl => 3 singles, loop count = 0 

* Address: xlO => 2 singles, loop count - 1 

* Address: xll = > 1 singles, loop count = 2 

T <- ECount; 

T «- (EPtr) + (T) + 1; * Form start address in T 

ETempl *- (ZERO) - (T); * Complement, increment 

CALL [EOAlign], ETempl *- (LDF[ETempl, 16, 2]) - 1; 

EOAlign: GOTO [EOQuad, R<0], ETempl <- (ETempl) - 1; 

GOTO [EONoMorel, R> = 0], T <- ECount «- (ECount) + 1; 

PFetchl [EPtr, ETemp]; 

LU <- ETemp; * Abort 

G0T0[ERet], OUTPUT [ETemp, EOData]; 

* Now start quadword output. 

* Adjust EPtr and ECount for 4-word transfers. 

EOQuad: ECount <- (ECount) + (3C); 

CALL [EOLoop], EPtr <- (EPtr) - (6C); * Set return address for out loop 

* Output from the Main Memory Output Buffer to the Hardware Output Buffer. 


(EFlag = 1) 
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EOLoop: GOTO [EOQuadEmpty, R > - 0 ], T <- ECount <• (ECount) + (4C); 

GOTO [EOAbort, IOATTEN]; 

RETURN, IOf-'etchT [EPtr, EOData]; 

* Normal exit From Output Loop is hero 

* 7 - XWCount - number of singles remaining 

* T is set up for next location, 

EOQuadEmpty: ECount *- (ECount) XOR ( 7 C); 

CALL.[EOSinglos] , ECount «- (ECount) - E; 

EOSingl es: GOTO [EONoMoro, R<0], ECount <- (ECount) - 1; 

PFotchl [EPtr, ETomp]; 

T <- (ZERO) + (T) + 1, ETemp; * Abort 

GOTO[ ERet], OUTPUT [ETomp, EOData]; 

* Wo'ro done outputing words. Sot output EOP. 

FONoMorel: NOP; 

EONoMoro: ETomp <• ESetOutputEOP; 

OUTPUT[ETomp,EWriteStato]; * Set OutputEOP 

CAEI.[ ETaskRet]; 

* Should bo wokori up here after hardware's done sending packet or an error 

EOEND: INPUT [ETemp, EStatus]; * Read Status 

E0END1: 

* T *- ETemp; 

* ETemp <- (ETemp) AND (53000C); 

* SKIP [ALU-0]; 

* NOP XBREAKPOINT%; * BREAK - Bad Ouput Status 

* ETemp <- T; 

LU «- (ETernp) AND ( ECOLLMASK) ; * Look at collision bit 

GOTO [EOCOLl., ALU//0 |, ETemp*ED i sabl oOutput; * ALU//0 => Collision, try again 

* If not collision, form status. Could be good packet or underrun (ODL). 

ECount <• OC; 

ETemp <- RSII[ETemp, 10]; * Shift down status 

ETomp «• (ETemp) AND (EOSMASK); * Remove uninteresting bits 
ETomp «- (ETomp) XNOR (ESODON); 

EOPost: CALLfETaskRet], Pstorol [EBase, ECount, EELOC!]; * Store end count 

ECount < EDisableOutput, CALL [EPost]; 

GOTO[.JXBREAKPOINTZ; * Shouldn't got here. 

* We arrive here after an IOATTEN is detected in the main loop, indicating an error condition. 

* IOATTEN will be true if a collision or underrun has occurred. 

EOAbort: GOTO [EOENDl], INPUT [ETemp, EStatus]; * Now read status 

* Collision encountered, disable hardware to clear collision, enable and try again. 

EOCOLl.: OUTPUT[ ETemp, EWri testate] ; 

ETeinpl <- FEnableOutput; 

OUTPUT[ETempX, EWriteState]; 

CAII[L EaskRct]; 

GOTO [EOIDLE]; 

* Load overElow, post status (NOT [ESLOAD], ETemp is 0) 

EOLOOV: GOTO [EOPost], ETemp < (ETemp) XNOR (ESLOAD); 

* Output buffer count is zero. Post (NOT [ESCZR]). 

EOCountZero: EEemp *- OC; 

GOTO [EOPost], Clomp <- (ETemp) XNOR (ESCZER); 


* Task-independent Subroutines 


* Subroutine [EPost]; 

* Posts the command completion, and wakes up driver. 

* Expects post code and status in ETemp. 

ECount lias disable code to be sent to State register. 

EPost: PFetchl [EBase, ETompZ, EBEOC!]; * Fetch wakeup mask; 

PStorel [EBase, ETomp, EPLOC!]; * Store ending status in F.PLOC 

* Now wakeup driver. 

NOP; * wait for write of ECount 

OUTPUT [ECount, EWriteState]; 

LoadPage[0]; 

T *- (ETeinp2) or (100000c), gotop[DoInt]; * Get wakeup mask from ETemp. 100000c means tasking return 


Subroutine [EBSetup], 

Set up EPt. r and ECount register. 

On entry T has pointer to EICl.OC or E0CL0C. 

Subroutine returns with: 

EPtr = Buffer Pointer + Count - 1 
ECount = - Count 

The appropriate input or output pointer and count locations aro used. 


Subroutine knows that EIPLOC 
EBSETUP: PFetchl [EBase, 

NOP; 

T <- (ZERO) r (T) + 1; 
PFetchl [EBase, EPtr]; 

T <- (ECount) - 1; 

EPtr <- (EPtr) + (T); 
RETURN, ECount «- (ZERO) 


EICLOC 
ECount]; 


- IT) 


1, and EOPEOC = F.OCLOC + 1. 

* Fetcti count 
So T can be written 
Point to ExPl.OC 
Fetch pointer 

Ptr <- Ptr + count - 1 
; * Count <- - Count 


* Subi-outine [EINIT]. 

* Initialization subroutine. 

* Called by both input and output task. 

* ETemp contains the enable codo to be used to enable the hardware. 

EINIT.- EBaselli <- 0C; * Set up baso pointer to loc 600 

EBase <- 200C; 

EBase <- (EBase) OR (400C); 

EPtrEli *■ 0C; * Set up high part of Buffer pointer 

GOTO[ERet], OUTPUT [ETemp, EWriteState]; 


* These instructions used For Tasking after OUTPUT instructions. 
ERet: NOP; 

ETaskRet; 


RETURN; 
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insertfdO'l any]; 

NOMTOASINIT;LAMGVERSION; 

insort[GlobalDefs]; "task and page assignments 
TITLE[Fau 1 tlland ler j; 

"last edit by Jotinsson, October 15, 1979 10:44 AM, At! 2389 

* edit by Kennedy, October 13, 1979 2:57 PM, Allow 16-bit fault codes 

* edit by Kennedy, October 3, 1979 9:15 AM, Update MP Codes 

* edit by Chang, August 22, 1979 5:01 PM, MOBCrash=212tl/138D, fix LogSE 

* edit by Jobnsson, June 27, 1979 8:21 AM, Log MC2 errors if LogSE 

* edit by Jobnsson, Juno 18, 1979 5:19 PM, new Midas 

* edit by Chang, May 21, 1979 2:33 PM, nail down StartMomfrap 

* edit by Jobnsson, May 10, 1979 9:42 AM 

* split off from Initialize by Johnsson, April 4, 19/9 
"Crror Codes for Fault Handler 

MCI CrashOffset,1000j; * Offset for upper 0-bits of fault codes. 

MC[RCSCrash, 330 |; * 728d - 11 or CS parity error 
MC[DPCrash,331]; * 729d - Real Broaakpolnt 
MCfMODCrash,342]; * 738d - Map Out of Rounds 
MC[ H4PUC rash ,333] ; » 731d •• II4PE 
MC[MOB&H4PEC rash, 334]: * 73?d - MOL! and H4PE 

MC[MC2Crash,335]; * 733d - got an MC2 error when unable to handle it by llETURNing 
MCj MC22Crash,336]; * 734d ~ 2 MC2 errors 

MCfMCICrash,33/]; * 735d - MCI fault when emulator couldn't accept it 
MC[ I.PC rash, 340]; * 736d - Fault from the instruction following a l.oadPage 
MC[5tkCrash,341]; * 737d - Stack over/underflow 

MC[NStkCrash,3GJ; * Complement of StkCi'asli (8 bits) 

"Fault handler 

"This code starts at location 120, task 17. 

"Control gets here from the kernel as soon as the state has been saved. 

•This code determines what to do based on the typo of error, and the bits in FFAULT. 
*t!its in FFAULT are: 

* 0: MC2 errors RETURN if 1, crash if 0 

* 1: Midas is present (1), so "crash" means breakpoint, else put a 

* code in MP and halt. 

* 15: MCl/StackOvf errors handled by notifying PFEntry in emulator (1), 

* or by crashing (0) 

* breakpoint means notify task 17, location 7514 (Kernel location BPSEND). 


OnPage[0]; 

Se tTask[17]; 

RV[PipeRcg,60]; "Pipe Ram Entry goes here 
MC[pP i peRcg,360]; 

Mcj pP ipoReg2,362]; 

RV[ P i pelleg4,64 ] ; 

I1V[ P i pe(!og5,65] ; 

SET[H4Disp,240]; 

SE1[Me2E rDisp,260]; 

Fan USt art: lu «■ (RXPPB) and (3000c), at[120J; "test R & CS parity 

goto[RCSErr, ALU//0], lu e (RXPPB) and (400c); "test memory error 
goto[MC12Err, ALLI//0], lu «- (RXPPB) and (4000c); "test stack ovf 
goto[TryDP, ALU=0]; 

StkEr: FFAULT, db1goto[MCINotifyEmu 1ator, Crash,ROOD], T <- StkCrash; "can emulator take fault? 

RCSF.rr: T <- RCSCrash, goto[Crash]; 

TryBP: T GPCrasb, goto[Crash]; 

"Get here with error code in T. If Midas is present, breakpoint. Otherwise, put 
"the code into the maintenance panel and bait. 

Crash: lu <- 1 df[ FFAULT, 1,1] ; 

goto[Midas , ALU//0] , P ipeRegS *■ (1 sb[Pi peRegS,10] ) or (T); "save error code in right half of PipeRegO 
RTMP «- CrashOf fset; 

T <- (RTMP) + (T), callfPNIP]; "add offset to fault code and then display it 
goto[ .]; 

Midas: lu «- 1 Of [ RXPPB , 4,4] ; * tost parity register 

RTMP <- 177400c, skip[al u//0]; "Notify Midas at /610b or 7512b 
RIMP «- (RTMP) OR (110C), goto[MidasNotify]; "Go overlay ’Break’ 

RTMP (RTMP) Oil (112C); "Go overlay ’MidasFault’ 

MidasNotIfy: 

APC&APCTASK <- RTMP; 

RETURN; 


MC12Err: 

Stkp «• RXSTK; * not stack error, restore pointer 

ReadPipe[PipeReg]; "get A pipe 

DispatchfPipeReg,4,2]; "dispatch on H4po, MapBnd 

Dispatch[PipeReg,0,2], Disp[NoH4BndEr]; "dispatch on MC2ErA’, MC2ErB’ 

NoH4BndEr: Disp[MC2ErAB], lu *- (PipeReg) and (20000c), AT[H4disp,0]; "test MClErA’ bit 

BndEr: T «- MOBCrastt, goto[Crash], AT[H4disp, 1]; "MOB error only 
H4Er: T ♦- H4PECrash, gotofCrash], AT[H4dIsp,2]; *H4PE only 

H4BndEr: T M0B&H4PECrash, goto[Crash], AT[H4Disp,3]; "H4PE & MOB 

MC2ErAB: T «- MC22Crash, goto[Crash], AT[MC2ErDisp,0]; "Have both MC2 A & B error - crash 

MC2ErA: T *- 1 hinask[MemSyndrome] , goto[MC2Er], AT[MC2ErDisp, 1]; "MC2A error 
MC2ErB: ReadPipe[PipeReg], ResetMemErrs, AT[MC2ErDisp,2]; "MC2B error - read pipe entry 
T <- 1 sh[MemSyndrome, 10] , goto[MC2Er]; 

NoMC2Er: Goto[MClEr,ALU-=0], ResetMemErrs, AT[MC2ErDisp,3]; "Branch if MClErA’ = 0 

ReadPipe[PipeReg], ResetMeinErrs; "MC1B error - read pipe entry 
MClEr: FFAULT, dblgoto[MClNotifyEmulator,Crash,RODD], T <- MClCrash; "can emulator take fault? 
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* As an Interim approximation to error logging, MC2 errors occuring 

* on a page with LogSE sot will store the pipe data + sytndromo at 

* VM 710 and resume. 

MC2Er: PipoReg *■ (rhmask[P1pcReg]) or (T); 

* ResotMemErrs , T +■ PipeRegS; *s ingle error problem 
RosotMomErrs, FFault, goto[MC2F.rRet, r<0]; 

I.U +• LDF[P ipeliogb, 10,1] ; * getting the f lag bit 

* RTMP <• 377c, goto[MC2Eog, NotlZBItS]; * tost (inverted) LogSE 
RTMP <• 377c, goto[HC2Log, alu=0]; * test (inverted) LogSE 

T <- HC2Crash, goto[Crashj; 

MC2F rRet: 

return; 

* RTMP f- 377c wil l bo used as odd base register. Since there is 

* no overflow and RTMP[0: 7") - 0 all will work correctly. 

MC2L.og: T <• 311c; * 311+377 = 710 

PStoro4[RTMP, PipeRegj; 

T + 315c; * 315+377 = 714 

PSto re2[RTMP , PipcReglj, goto[T17Restoro'J; 

‘"Notify emulator at EmNotifyA if emulator was the interrupted task, else at EmNotlfyB 
MClNo t i fyEmul a tor: 

lu <- ldf[ RXCTask ,0,4"]; 

RTMP <- 202c, gotol’MCINEx, ALU//0 j; 

RTMP «- 200c; ‘emulator task interrupted - notify EmNotifyA 
MNBR + RXCTask; *savc the emulator's PC for further consideration 
MClNEx: APC&APCTask <- RTMP; 

SAL.UF <■ T, return; *save the crash code in saluf, so that the emulator can use it 

Tl/Restore: RXCTask <- (RXCTask) xnor ( 170000c), Al[204]; "complement CIA 
T <- 1 df [RXCTask , 4,4] ; ‘page bits 

III <- (1 df [RXPPB , 0,4]) xor (T); *corapare with saved page register 
got,o[ LoadPageE rror, A LLJ//0[|, T + 1 s h[ RXALU , 4 ]; *result register 
APC&APCTask + RXCTask; 

RETURN, RESTORE, A <- RXAPC, lu + T; *hack to faulted task 
LoadPageError: T «- LPCrash, goto[Crash]; 


SetTaskf 0J; 

NotifyBack: RTEMP +- (RTEMP) or ( 170000C); 

APC&APCTask <- RTEMP, goto[PFExitj; 

PFExit; return; 

EmNotifyA: usectask, xlluf <- T, AT[200]; "save the emulator's T in xBuf 

T + APC&APCTask, ca I l[PFExit]; "save emulator's TPC in T, and task switch 

* PF handling starts here if the emulator was interrupted, 

* Note that if the emulator was NOT interrupted, then the 

* fault cannot have come from buffer refill. Since control 

* entered here, the emulator’s PC (complemented) is in MNBR. 

PFElvt ryA: 

xBufl + T, 1 oadpage[ Fail I tPagol] ; 
gotop[PFF.ntryAx j; 

EinNot i f,yB: 

usectask, xBuf + T, AT[202]; 

T <■ APC&APCTask; 

RTEMP + 204c, cal 1[NotifyBack]; *Prcpare to notify back to task 17, location T17Restore 

* PF handling starts hero if non-emulator was interrupted. 

PFEntryB; xBufl + T, loadpage[FaultPagel]; 

gotop[PFEnt ryBx |; 


OnPage[HaultPagel]; 

PFEnt ryAx; 

T <- NStkCrash, Call[CheckStackTrnp^ ; 

lu + 1df[xBuf2,4,4], goto[CheckBufferRefill]; 

PFEnt ryBx : 

I «- NStkCrash, Cal 1 [CheckStackTrap] ; 

goto[CMStl], 6 ispatcli[MemStat, 15,3] ; "cannot be buffer refill trap 


CheckStackTrap: lu «- (SALUF) xor (T); 

F + MNBR, goto[StackF.rrorz, ALU=0J; +set up to test page bits of emulator's PC 
xBuf2 + (7.ER0) xnor (T); '"coinplemont value 
xBuf2 + (xBuf2) and not (170000c), return; 

*Wo have a stack error. Cause the trap immediately. Set Stkp back to beginning of last 
•Instruction. Let the PC fall where it may. 

StackF.rrorz: 

lu <- (GetRSpec[103])-(1sh ift[11,10]c); "test SStkp for 9 or more 
T <• SStkp, skip[nocarry]; 

RTEMP <- 10c, goto[ . +2] ; 

RTEMP <- T; 

Stkp «■ RTEMP; 
loadpage[7]; 

T <- sStackError, gotop[kfcr]; 


•At this point, xBuf contains the emulator's T at the time of the fault, 
♦xBufl contains the emulator's TPC, and xBuf2 contains the PC of the 
•aborted instruction. The major problem with faults is to determine the 
♦PC to store in the frame, and whether to continue the instruction, or 
♦cause the trap immediately. The cases are: 

*1) The fault was caused by a Nextlnst (PC Is on page 0, TPC points to 
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"a Nextlnst). We set IBUF to -1, PCF to 0, and send control back to 
*tho Nextlnst. This will cause the faulted instruction to be completed, 
♦and control will go to opcode 377, which will cause the trap with 
"PC => 2*PCB + PCX -1. 

*2) The fault was due to a NextOata in the first microinstruction of 
’a bytecode (TPC - OlxxxxxxxxOl). The trap is started immediately, with 
♦PC = 2*PCB - 1 (The NoxtOata was trying to get an operand from location 
*0 of the buffer, so the opcode is at location 7 of the previous buffer, 
♦but PCS was incremented by 8 bytes before the fault was discovered). 

*3) The fault was detected on page 5 and was duo to a Pfetchd. This is 
♦a jump instruction buffer refill. Wo proceed as in case 1 without 
•setting PCF. 

♦4) The fault was due to an Xfor buffer refill (McmStat[13:10] 

♦XferFixup). This is handled just like a jump. 

♦5) Tho fault occured during the early phases of Xfor. We want to back 
♦out and redo the instruction, but CODE may have changed and wc need It 
♦to compute the PC to save. Call Loadgc to reload from the current LOCAL. 

•If none of these situations ho ld, the PC is (PCD ’■ 2) t g, whore q = if 
*(PCF> = PCX) then PCX-1 else PCX-9 (if PCF<PCX, then the buffer was 
♦refilled between the Nextlnst and the fault, and PCB has boon advanced 
♦by 8 bytes). In the normal case, the trap is stalled using this PC, and 
♦it is not necessary to unwind the instruction. If any special unwinding 
♦is necessary,it is indicated by a value in MemStat[13:15], 


CheckBuffe rRefi11: 

T <- 6c, goto[CameFromPageO,ALU=0]; "test for emulator page 0 fault 
lu <- (1 df [ xBuf 2,4,4] ) xor (T); 

T «- (GFTnSPLCI 103] ) xor (377c), gotofCheckMemStat, ALIJ//0] ; *got ready to save s t ackpo i 11 ter 
♦Wo came from page 6. If the operation was PFetch4, this is a jump buffer refill 
Tlluf3 *- pPipeRog2; *lBuf3 is a guaranteed free temporary 
Stkp <- Illuf3, IBuf3 <- T, task; *iiow pointing at the operation 
T <- 11c; * 1)01 0 (PFetch4) 
in <- (1 dr [Stack, 14,4]) xor (T); 

Stkp < I!luf3, dblgoto[CMSt2 ,Coot inuelnterruptcdOytecode , AL.U//0 ); 

♦We have a PFetch4 from Pago 6, i.o. JumpCity. We continue the jump after filling IBuf witli -l's, 
♦and eventually get to opcode 377. 


CamcF romPageO: 

xfiufl < I cyfxBuf 1,6]; *sct up to test for TPC = OlxxxxxxxxOl. 
lu <- xBuf2; * test for aborted pc - 0 

T <- 101c, goto[FPC0y, alu = Oj; * high 2 and low 2 bits or addr, task 0 in middle 
lu »- ( rhmaskfxBuf 1 j ) xor (T); 

goto[CBR1, ALU/70], T «- rcyfxBuf1,6]; * put TPC back 

PCB <- (PCB) -(4c); *TPC = OlxxxxxxxxOl, fault was from first instruction of bytecodo 
PCF <- AllOnes; * PCF < 7 

f 1 - (GctRSpoc[103]) xor (377c), goto[SMTrpx]; * use current Stkp 

CBR1: xBuf2 <- T; * xBuf2 now contains TPC instead oT aborted PC 

T «- Oc; *Does TPC point to a Nextlnst? 

APC&APCTask «- xBuf2; 
neadCS; 

CSDATA, goto[CMStO,Rodd ]; 

PCF <- RZERO; *PCF <- 0 

ContiiHielnterruptedBytecode: T <- xBuf; *xBuf2 points to place to resume the bytecode 

CIB1: IBuf <- (Zero) l, task; ‘force bytecode 377 

IBufl «- (Zero)-l; 

IBuf2 (Zero)-l; 

IBuf3 <- (Zero)-1; 

APC&APCTask <- xBuf2, goto[PFExitl]; *Roturn to the Nextlnst 


SET[FixDisp,ADD[LSIIIFT[FaultPagel, 10], 100]]; 

CMSt2: Dispatch[McmStat,15,3], goto[CMStl]; 
CMStO: Dispatch[MemStnt,15,3], goto[CMStl]; 
CheckMemStat; Dispatch[MemStat,15,3]; 

CMStl: Disp[FixPCOnly]; 


FixXfer: T <- xBuf, goto[CIBl],AT[FixDisp,1]; 

FixEarlyXfer: LoadPago[x fPagel],AT[FixDisp,4]; 

PFetchlfLOCAL,xfTemp,0], cal 1p[Loadgc]; 
FPCOy: T ♦- (PCXRog) - 1, goto[FPC0x]; 


FixBLTL: T <- SStkp, AT[FixDi sp ,2] ; 

RTEMP <- (T), task; 

RTEMP <- (RTEMP) - (4c); 

Stkp *- RTEMP; 

T <- xBuf,Cali[BumpGlorp]; * 

Stack&+1; 

Stack <- (Stack) + 1; ♦ 

Stack&+1, Call[BumpGlorp]; * 

T «- (PCXReg) - 1, goto[FPC0x]; * 


* prepare for fixup relative to saved stkp 


source + T 

count + 1 
dost -I- T 

one byte Inst cannot have refilled buffer 


BumpGlorp: Stack <- (Stack) + (T); 

Stack&+1,skip[NoCarry]; 

Stack *- (Stack) + 1, return ; 

PFExitl: 

retu rn; 
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FIxBVt: F <- (SSt.kp) - 1, AT[FIxDisp,3]; * prepare for fixup relative to saved stkp 
RTEMP <- pPipeReg2, task; 

Stkp «• RTEMP, RTEMP <• T; “Stack points at operation, RTEMP points to count word 

* Operation (complemented) is low order four bits of Stack 

* We know the op was either Pfetclil (typo = 4) or Pstorol (typo = 10b) 

T <- 1 df(Stack, 15,1]; * we tost Stack[13]: 0-> fetch, 1=> storo 

Stkp <- RTEMP, lu <• T; * point to count, tost result to alu 

Stack <- (Stack) + 1, skipfalu // 0]; * count + lj now test fetch/store 
T «- (PCXReg) - 1, goto[FPCOx]; * fetch; done with f ixup 

Stack&-1, call[DocGlorp]; * source - t 

Stack&+2, call[DccGlorp j; * dest - 1 

T <- (PCXReg) -1, goto[FPC0x]; 

DccGlorp; Stack <- (Stack) - 1, return; 


FixPCOnly: T <- (PCXReg) - 1, AT[Fi xDi sp , 0] ; “normal PC fixup 

FPCOx: RTEMP «- T, ski p[al u>=0] ; 

PCD «• (PCB) - (4c); * PCX was 0, Inst started in previous quadword 

lu <- (PCFRog) - (T); “test for PCX largo, PCF small 

PCF <- RTEMP, skipfal u> = 0]; "PCF is always PCX-1, only PCB is in doubt 
PCB <- (PCB) - (4c); 


"Here PCB,PCF is correct pc to save for trap. It will bo done through KFCB. 

St a r tMemTrap : T <■ SStkp, atf StartMemTrapLoc]; 

SMTi'px: RTEMP <- pPipellog, task; "Point stkp to pipo registers 
Stkp «- RTEMP, RTEMP «- T; 

McmStat <- Normal; 

T <- (Stack&i-l) and (177c); "low 7 hits oF VPago 

T <- (lsh[Stack&+l, 7]) or (T); "high 7 bits of VPago 
xfOTPReg <- (zero) or not (T); 
xfOTPReg <- (xfOTPReg) and not (140000c); 
stack&"3, task; "point to flags 

T «- IdtfStack, 12, 1]; "Tost Dirty'; 0=> page fault. 

Stkp <- RTEMP, lu <- T; "Restore stkp 
sk ip[ AUJ---0] , Load Pag e[ 7]; 

T <- sWr i teProtect, gotopfkfcr]; 

T «• sPagoFault, gotop[kfcr]; 


END; 
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ilTLE[GlobalDef s]; 

* Last Modified by Chang on October 10, 1070 7:29 PM, revised RDC & XU-codes 

* Modified by Chang on September 17. 1079 5:30 PM, Mow ROC-codes 

* Modified by Chang on Scptcmbor 7, 1979 4:27 PM, clean page 2 

* Modified b.y Chang on August 23, 1070 2:42 PM, move Timer's regs & CSfS 

* Modified by Chang on August 13, 1979 3:03 PM, RDC Integration 

* Modified by Chang on August 2, 1079 2:09 PM, Change XW-Tasks numbers 

* Modified by Chang on July 6, 1979 6:07 I’M, Two XWiros 

"Modified by Johnsson on June 15, 1979 3:18 PM, add Kernel registers (new Midas) 

•Modified by Chang on May 27, 1979 4:41 PM, for Overlay booting (midas) 

•Modified by Johnsson on May 14, 1979 8:53 AM 

“Modified by Chang on May 10, 1979 8:27 AM 

"Modified by Sandman on May 8, 1979 11:58 AM 

•Modified by Johnsson on May 7, 1979 3:06 PM 

IDE0[M idastloot, , Sot[MidasBoot,0]]; 

IDFSfxWi re , , SetfXWi ro , 0]] ; 

•Task Numbers 

Sot[EOtask,12]; •Ethernet Output -- DO mode 
Set[ El task , 13] ; •E thernet Input DO mode 

Sct[E0task2,6]; '"Ethernet Output -- 00 mode (second board only) 

Set[EItask2,7'J; ‘Ethernet Input DO mode (second board only) 

Setl'Otask , 10]; *IRDC 

* MC[RdcTask, 11]; "SA4000, implies a set[UdcTask! , 11]; 

Set[RdcTas k, 11]; 

So t[uiUTFPTASK,14]; "IUTFP 
Sot[TTask, 10']; 

Sot[RFTask,4]; *RS232 frame task 
Set[RBfask,5]; *RS232 bit task 


«*•«•*«»•***•**«<«****** CSB 


Set[XOSta rtCSR, 177640]; 
Self XlSta rtCSB, 17 7660]; 
So t[XOStartCSB2, 177540]; 
So l;[ X IStartCSB2, 17 7560]; 
SET[RS232CSBLoc,177500]; 
Sot[ RDCCSBValue, 1.7 7620]; 


Assignments 

* Output CSB (board 1) 

* Input CSB (board 1) 

* Output CSB (board 2) 

* Input CSB (board 2) 

* CSB location 

* RDC CSB 


•Page Assignments 
Sot[InitPago , 16]; 

So t[InitPage1,2]; 

Sot[In i tPago2,1]; 

So t [ l.oadCSPago , 1]; 

So t[ T imeri’age, 0 ] ; 

SeL[Timerini'tPagel, 2] ; 

Set[TimerinitPage 2,2]; 

"NOTE - all initialization is crammed onto the same page. 

SetfDisklnitPage,2]; "Throwaway init code for disk 

Set[D is kin i t Loc , Add| Lsh i f t [ D is kin i tPage, 10], 203]] ; ‘Disk initialization 
Sot[DisplayIn i tPage,2]; ‘Throwaway init code for IUTFP 

So t[D i sp I ay Ini tLoc , Add[ Lshi f t[D i sp 1 ayTni tPage, 10] , 207]]; *Displ ay initialization 
Set[RdclnitPage,2]; *lhrowaway init code for SA4000 

Set[ Rdcln i tBaso ,Add| l.shif t[ Itdcln i tPage , 10] , 340] J ; *SA4000 
Set[ Rdcln i tLoc, Add [Lshi ft [lldcln itPage, 10] ,340]] ; "SA4000 In it ia'I izat ion 
SotfEther InitPage,2]; 

Sc t[ Ether 1 11 In i t hoc, Addf Ls hi f t[ Ethorln i tPage, 10], 210]]; "Ethernet initial i zat ion 
Set[ E therOu tin i tLoc, Add [Lsh i T t[ E the rln i tPago , 10] , 212 j] ; ‘Ethernet initialization 
• --> (2nd board only) 

Se t[EtherlnitPage2,2]; 

Sot[ Etlierlnl ni tl.oc2, Add [Lshi ft[ Elbe rln itPage, 10] , 214]] ; *2nd Ethernet initialization 
Set[ E therOu t In i tLoc2 , Add[ Lshif t [Etlie rlni tPage, 10] , 216] j ; *2nd E t he rue t initialization 
Set[FEPage,3]; *Ethernot microcode 
Sol[EOPage,3]; 

Se t[F IPago,3]; 

Sot[ KeyPage , 17] ; '"Keyboard translation table 

Set[KoyTable,add[1shift[keypage,10],140]]; 

MC[ Key Tab! ell, a nd@[key table, 7400]]; 

MC[Ke.yTableL, andfi[keytable,3/7]]; 

Set[opPago0,4]; *These cannot move easily, since the hardware forces the first instruction 
SetfopPagel,5]; *of each bytecode to start at 2001 + (4 * opcode) 

Se t[opPage2,6]; 

Set[opPage3,7]; 

Set[MuIDivPage,4]; 

So t[LRJPage,0]; 

Set[ClrDvPage,4]; 

Se t[ Haul t Pag el, 14] ; 

Set[DRPAGE,10]; "Disk microcde 
Set[DRPAGE2,11]; ‘"More disk microcode 
set[hbpl, 11]; •bitblt page 1 

Set[uiUTFPPage,12]; ’Display microcode 
Set[nePage,1]; 

Set[RdcPage, 13]; * SA4000 main task 

7 . 

'"*•******•••** page-assignment for RDC 
Set[RdcPagel, 13]; *SA4000, main task 

Sot[RdcPage2, 13]; "SA4000, used to bo page "RdcOverflow" 

Sot[RdcPage3, 17]; *SA4000, used to be page "RdcOverflow" 

Set[RdcPage4, 17]; *SA4000, used to be page "RdcOverflow" 

Sot[RdcPage5, 17]; *SA4000, used to be page "RdcOverf1ow" 

***#^#**iH»i***#*H#*#>(i**^#**<te* 

% 

sot[bbp2, 14]; "bitblt page 2 

Set[xfPagel,15]; 

SET[prPage, 16]; 


Sot[DBootDoneLoc,Add[lshift[InitPagel,10],376]]; 
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Sot[KTCRLoc,Addflshift[oppago3,10],76]]; 

Set[P7TailLoc,Adcl[ Ishift[oppage3,10],27]]; 

Sot[LoadGCLoc,Add[lshift[xfPngel.10],300]]; 

SotfneNos kipLoc , Addf Islvi f tfnePage , 10] , 273 ]] ; 

SetfInitEndLoc,Addfl shit"t[T imerPago, 10],20]]: 

Se tf EES'tartLoc , Add[ 1 shi ft [EF.Page, 10 |, 105]]; 

SetfStartMcmTrapLoc, Addflsh if t'fFaul tPagcl, 10], 16]]; 

Sr tfPNIPBase ,Ar)d[ I sh i ftfTimerPago , 10], 166]] j 

* Pilot high resolution clock 
SetTaskfTTask]; 

RV[C1ockLo, 60]; 

RV[C lockll i, 51]; 

* The following 5 definitions MUST MATCH THOSE IN RS232C MICROCODE!!! 

* Also, code depends on RIHotify value being zero! 

MCfRINotify,0]; * Input bit notify least sig. byte addross 
MCfRONotify,1]; * Output bit notify least sig. byte address 
MCfRPNotify,2]; * Poller notify least sig. byte address 

RVfEONotify, 40]; * Register containing notify value for Ethernet 

RVfEONotify2, 44];* Register containing notify value for 2nd Ethernet 
RVfRFNotify,46]; * Register containing frame notify values 

RVfRXNotify,47]; * Register containing bit notify values 

* End of RS232 definitions 

RVfRSImage,42]; ‘Imago of RS232 hardware register 

* Kernel registers 
SetTaskf17]; 

RV[ RXAIli, 76]; *AI.U result and SAI.UF 

RVfRXAPC,75]: ‘APCTask&APC 

RVfRXCTASK,74]; ‘CTASK.NCIA 

RVf RXPPB,73]; ‘Page , Par Tty , Root Reason 

RVfRXSTK,72]; ‘Stackpointor 

RV[RTMP,71|; ‘temporary 

HVfFFauit, 66]; ‘Flags tell what to do with fault 
MCfFFaultAdd, 366]; ‘Address of FFault 
SotTaskfO]; 

‘Register definitions for Nova and Mesa emulator 

‘The Mesa Stack. These locations cannot move, since the hardware does overflow checking on 
‘those registers. 

RVfStackO, 1]; 

RV[Stack!, 2]; 

RV[Stack2, 3]; 

RV[Stack3, 4]; 

RVfStack4, 5]; 

RVfStacks, 6]; 

RVfStack6, /]; 

RVfStack/, 10]; 

* Registers used to hold constants 
RVf 11400,16]; ‘constant 400 
RVfAIIOnes,16]; * 1 

RVfRZero,17]; ‘0 


‘Nova central registers 
RVfAC0,20]; ‘Quadword block for ACO-3 
MCfpACO,20]; *R address of AC0 
RVfAC1,21]; 

RVfAC2,22]; 

RVfAC3,23]; 

RVfCARRY,24]; ‘Nova carry bit in bit 15d 
RVfNWW,25]; 

MCfpNWW,25]; ‘pointer to NWW 
‘Base registers 

RVfNova,26]; *Baso of Nova address space 
RVfNovah,27]; 

RV[PCB,30J; ‘PC base register pair 
RVfPCBh.31]; 

RVfPC, 30]; 

RVfPChi, 31]; 

RV[DMA,32]; ‘temporary base register used by CONVERT 
RVfDMAh,33]; 

RVfSMA,34]; ‘temporary base register used by CONVERT 
RVfSMAh,35]; 

RVfMDS, 36]; 

RVfMDShi, 37]; 

RVfGLOBAL, 54]; * must be quad aligned 

RVfGLOBALhi, 55]; 

RVfxfMY, 56]; * must be GLOBAL + 2 

RVfxfMX, 57]; 

RVfl.Pdest, 66]; * Long BLT 

RVfLPdesthi, 67]; 

RVfCODE, 60]; 

RVfCODF.hi, 61]; 

RVfLOCAL, 64]; 

RVfLOCALhi, 65]; 
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RV[LP,66]; ‘long pointer base pair 
RV[LPhi,67]; 

RVfPBase, 26]; * PSD baso register 

RVfPBuseh i, 27]; 

RV[Quouel,44]; * Queue base register for process machinery 
RVfQueuelhi, 45]; 

I(V[Quoue2, 46]; * Queue base register for process machinery; 

RV[Queuo2hi, 47]; 

•Btif fers 

RV[ IBUF , 40]; *4 word instruction buffer ( DM 40-43) 

RVflOuf1, 41]; 

RV[IBuf2, 42]; 

RV[TBuf3, 43]; 

l!V[xBuf,44]; *Quadword temporary buffer (RM 44 - 47) 

MC[pxBuf,44]; ’"pointer to xBuf 
RV|'xDufl, 45]: 

RV[xBuf2, 46]; 

RV[xBuf3, 47]; 

‘Time registers for process timoout; 

RV|'CurrontTinie, 62]; 

RV[lickCount, 63]; 

♦Other 

RVfxFFsl, 32]; 

RVfxIRlink, 33]; 

RV| RLink, 33]; 

RV[xfGf iWo rd, 34]; ‘holds wo rd 0 of global frame 
RV[x fRsav, 35]; 

IWftfAd,50]; *Nova Effective address 
RV[MomStat, 50]; 

RV[RCNT,51j; ‘used by MUL and DIV 
RV[xfframe, 51]; 

RV[RTEMP,52] ; 

RV[RTEMP1,53] ; ’"used by Interrupt Test 
RV[Result,53]; "temporary 
RV[ i n tRTN, 54] ; “’used by Interrupt test 
RV[INTX,55]; ‘used by Interrupt test 
RV[xnXII,56]; ‘temporary used by CONVERT 
RV[WW,56]; 

RvjACTIVE,57]; *nmst bo WWi1 

RV[ xnDest,57]; ’"temporary used by CONVERT 

RV[XBI,57]; ‘register used as temporary when initializing DD as an index into xDuf 
RV[xfBrkByte, 74]; 

♦Process registers 
RV[Process, 73]; 

RV[MQ, 66]; 

RV[PRF1ags, 71]; 

RV[P rev, 70]; 

RV(QTomp, 12]; 

RVf Qlemphi, 13]; 

RVfPRTime, 72]; 

RV[RTomp2, 67]; 

RV[ITemp, 12]; 

RV[ ITcinpl, 13]; 

RV[Int Type, 14]; 

RV[In tLovol, 57]; 

RV[ EMl.i nk , 10]; 

RV|xfTemp, 72]; 

RVfxfTempi, 73]; 

RV[xfTomp2, 66]; 

RV[x fCoun t, 67]; 

RV[xfATPreg, 71]; 

RV[x fXTPrcg, 70]; 

RV[ x f'OTPreg , 11]; 

RV[EMostReg,75]; "Ethernet host register (accessed by Ethernet code during SIO) 

MC[pF.llostRegx, 74]; ‘pointer used during Ethernet initial ization (points to 74 because 
♦INPUT to tlie stack does a push 
RV[xfWDC, 76]; 

RV[xfXTSreg, 77]; 


♦bitblt registers 
rv[bbDEST, 
rv[bb RTEMs1x, 
rv[bbRTEMsty, 
rv[l)bRTEHdlx, 
rv[bbRTEMdty, 


44];‘Quad-word buffer coincident with xBuf 

44] : 

45] ;*paired with bbRTEMsix 

46] ; 

47] ;*pa1 red with bbRTEMdix 


rv[bbSOURCE, 


70];*Quad-word buffer 


rv[bbSrcQAddrLo, 32];“map baso reg 

rv[bbSrcQAddrHi, 33];‘paired with bbSrcQAddrLo 


rv[bbDestQAddrLo, 56];"map base reg 

rv[bbDestQAddrHi, 57];‘paired with bbDestQAddrLo 


rv[bbSBCA, 

rv[bbGRY, 

rv[bbSBMR, 


4]; 

4] ; 

5] ;’’paired with bbSBCA 


rv[bbOBCA, 

rvfbbGrayCnt, 

rv[bbDBMR, 


»]; 

6 ]; 

7];‘paired with bbDBCA 
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rv[bbMi nits ItemVJidth, 66]; 

rv[l>b.TtemWidth, 66]; 

rv[lib Items Romai 11 ingM1nus2 , 67];*pai red with bbltumWidth 
rv[bbI toms RemainingMinusl,67j; 
rv [ b b 11 ent s Rerna i n i ng, 67]; 

"registers which need not be paired 
rv[bbSrcStartDitLo, 12]; 

rvfbbSrcStartBItlH, 13]; 

rvfbbDestStartBitLo, 14]; 

rv[bbDestStartQi till, 70]; '"coincident with ACO 

rv[bbMinusSUNonOverlap, 24]; 

rv[bbSDMonOveriap, 24]; *coinc1dent with CARRY 

rv[bbMinusOitsRemaining, 51]; 

rv[bbMinusNumUitsT ran, 53]; 

rv[bbRmction, 11]; 

RV[xCNT,02]; 

RV[DevIndex,62]; 


•Constants 

MC| In tPondiitgB it, 10]; 

MC[xfAV, 1000]; 

MC[ x f SOOT f set, 100]; 

MCfxfGFT, 1400]; 

MC[Normal, 0]; * Things in MemStat 

MC[T reeF raine, 10]; 

MC[Far'lyXfor, 4]; 

MC[£S 1 tF ixup, 3] ; 

MC[B ItLFixup, 2]; 

MC(XTorFixup, 1]; 

•Frame formats 

MC[xfPcOffsot, l]; * in L 

MC[xFRetLinkOfFset, ?.]; * in L 
MC[LocalZeroOffset, 4]; » in L 
MC[xfGf iOffset, 0]; * ill G 

MC[G1obaIZcroOf fset, 3]; * in G 

•StateVector format 
MC[St kPOf f sot, 10]; 

MC[Des tOf f set, 11]; 

MC[Sourco0ffset, 12]; 

*SD indicies 
MC[sStackError, 2]; 

MCIsWakoupError, 3|; 

MC[ sXfe rTrap , 4J; 

MC [ slln imp 1 omen ted, 5]; 

MC|sAl1octistEmpty, 6]; 

MC[sContro1Fault, /]; 

MC[sCsegSwappedOut, 10]; 

MC[sPageFauit, 11]; 

MC[sWriteProtcct, 12]; 

MC[sUnbound, 13]; 

MC[sZeroDivisor, 14]; 

MC[sDividoCheck, 15]; 

MC[ silardwa reE r ro r, 16]; 

MC[sProcessfrap, 17]; 

MC[sBoundsFauit, 20]; 

MC[sPointcrFault, 21]; 

MC[FirstProcess, 75]; 

MC[LastProcess, 76]; 

MC[FirstStateVoctor, 77]; 

MCfCurrentPSB, 21]; 

MC[ReadyQ, 22]; 

MCfCurrentState, 23]; 

MC[ReadyQlri, 1]; 

MC[IntStopPC,25]; "Nova entry point constants 

MC[StopStopPC,26]; 

MC[MEStopPC,27]; 

MC[MXDStopPC,30]; 

MC[MREStopPC,31]; 

MC[MXWStopPC,32]; 

MC[NOTIFYStopPC,33]; 

MC[BCASTStopPC ,.34]; 

MC[REQUEUEStopPC,35]; 

* RS232 S10 address constants 

Set[ RS232SIOLoc , add[LSh i f t[ F.EPago, 10] , 370]]; 

% 

********** move the followings to DOLang.mc 
•If mode not defined, make it Pilot 
IDF@[AltoMode,,SET[AltoMode, 0]]; 

•This statement defines comments *// is Alto and *= is Pilot 
IFE@[AltoMode,0,C0MCHARS[#] t C0MCHAR@[=]]; 

•Print Message telling Mode 

IFES[A1toMode,0,ER@[Pi1ot.3.0.Microcode],ER®[A1to/Musa.0.0.DO.Microcode]]; 


•Macros 
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M0[OPCODF., AT[2001,LSHIFT[/n,a;|]]: 

‘Cycler-masker functions 

M0fKIXVA, nS0[3] l : Z0[341] //1]; 

M0f I'o rml, l.DF[//l,17 , l | ]; 

M@[ Form2 , [JS©[3] l : Z0[342] //l'J; 

M0[l-'o rr,i3, t.DP[//l ,16,2]]; 

M0["torm4, L3S0[3] rZ0[343] //I]; 

M3[FormMinus4, BS0[3] FZ0[361] //!]; 


End; 
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BUILTIN[Insert,24]; 
insort[d01ang]; 

NOMIDASINIT; 

LANGVERSION; 

MULTDIB; 

1nsert[GlobaIDofs ]; "task and page ass ignments 
TITLE [In it ial Izat, ton]; 

"last edit by Chang, October 11, 1979 10:03 AM, revised RDC ft XW-codes 

* edit by Johnsson, October 9, 1979 4:06 PM, AR 1329 - PNIP 

* edit by Kennedy, October 3, 1979 9:22 AM, Update MP Codes 

* edit by Chang, September 17, 1979 7:00 PM New RDC-codes 

* edit by Chang, September 12, 1979 2:13 PM RDC in ALTO-modo 

* edit by Chang, August 22, 1979 1:29 PM move Timer’s regs 

* edit by Chang, August 17, 1979 8:42 AM ROC Integration 

* edit by Chang, August 2, 1979 3:53 PM Add 2nd EthorBoard 

* edit by Johnsson, June 13, 1979 4:53 PM now FFault register 

’"edit by Chang, Juno 3, 1979 4:11 PM Overlay booting 

♦edit by Johnsson, May 15, 1979 3:27 PM, PNIP fix 

•edit by Chang, May 10, 1979 8:31 AM, add new Ethernet ID 

•edit by Sandman, April 6, 19/9 3:50 PM 

•Modified March 6, 1979 by CRT, Added fault handling 

IMRESERVE[0,0,100]; 

* IFE@[I 11 i tPage , 1, IMRESERVE[0,100,17] , IMRESERVF.[1,0,100]] ; 
IMRESERVE[1,0,100]; 

IMRESERVE[2,0,100]; 

IMRESERVE[17,377,1]; 


•Registers for IMAP 
RV[xmad0,22]; *bnso register 
RVfxmadl,23]; 

RV[xmbuf0,24]; *<|lladword buffer for XMap and PFetch4 
RV[rbufO,24]; 

RV[xmbuf1,25]; 

RV[rbuf1,25]; 
rv[xmbuf2,26]; 

RV[rbuf2,26]; 

RV[xmbu f3,27]; 

RV[rbuf3,27]; 

RVfwbuf0,30]; "guadword buffer for PStore4 
RV[wbuf1,31]; 

RVfwbuf2,32]; 

RVfwbuf3,33]; 

RV[r1inkO,34]; "subroutine return link 
RVfMapEntry,35]; ‘current map location 
RVj ZPage, 35] ; '"page being cleared 
l!V[ Real Page , 36] ; "current real storage page 
RV[ZWord,36]; 

RVfPageCount,37]; "count of available real pages in system 
RV[CompFlag,40]; 

RV[BootType,0]; * even => hard boot, odd => soft boot 

"Registers for other sections of initialization 

RV[xCNT,20]; "used everywhere 

RVfDevIndex,21]; "used in Dcvicclnit 

MC[pDX,21]; ‘pointer to Devlndex 

RV[contemp,22]; "used in Devicefnit 

RV[assigned,23]; ‘used in Devicolnit 

RV[initpc,24]; "used in Devicelnit 

RVfinitrO,40]; "used in DiskBoot 

Rvjinitrl,41]; "used in DiskBoot 

RV[initr2,42j; "used in DiskBoot 

RV[initr3,43]; "used in DiskBoot 

RV[ErrorCnt,44]; "used in DiskBoot 

RV[ErrorCountx,45]; "used in DiskBoot 

* MC[tmr38conreg,324]; *RM 324 holds 38usec timer restart constant 
MC[tnir38conrog ,354] ; *RM 354 ho lds 38usec timer restart constant 


"Maintenance Panel Normal Operation Codes: 
MC[StartMapInit,1274]; *700d 
MCfStartDevicelnit,1306]; "710d 
MC[StartDiskBoot,1320]; *720d 

MC[SystemRunning,1476]; *830d 

"Maintenance Panel Failure Codes: 

MC[NotEnoughMeinory, 1275]; *701d 
MC[BadMap,1276]; »702d 
MC[NoDiskStatus,1321]; *721d 
MC[BadBoot,1322]; "722d 

SETTASK[0]; 

MC[NextDiskAddr,237]; 

RV[BootDiskAddr,37]; 
SET[InitBase,lshift[InitPage,10]]; 
SET[HardStart, ADD[InitBase,1]]; 

SET[SoftStart, ADD[InitBase,2]]; 

MC[InitLoc,InitBase]; 

SET[Qloc,ADD[InitBase,6]]; 
MC[QxL,AND0[Q1oc,377]]; 

MC [Qxll,OR0 [150000,AN D6[Qloc,7400]]]; 

SET[QretLoc,Add[InitBase,7]]; 
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MC[QRetL,AND@[QretLoc, 377]]; 

MC[Q ret 11, AND@| Qret Loc, 7400]] ; 

ONPAGE[InitPagej; 

*Hachin« initialization begins hors 
GO: 

START: xCNT«-InitLoc, at[llardStart]; "send control to "Qtask" in task 0 
apc&apctnsk< xCIIT, goto[in i t RET ]; 

SoftBoot: 

BootTypo «- 1c, goto[llegln Itl], nt[Sof tStart]; * This is a soft boot; 

Qtask: xCNT «- Qx I., AT [In i tllaso]; "Quiesce tasks 16b - 1 
xCNT <- (xCNT) or (QxH); 

Dovltidex <- pDX; 
stkp <- Ocvlndox; 

Oevlndex «- QRetL; 

Devlndex «- (Devlndex) or (Qltetll); 

Qloop: APC&APCTASK <- xCNT; 
initRET: return; "goes to Qx 

Qx: , 

APC&APCTASK «- stack,cal1[initRET], AT[Q1oc]; "Notify comes here. Leave task's IPC pointing at Qxy. 
Qxy: goto[initRET]; "must spend two instructions in the task 


Qret: lu <- 1df[xCNT,0,3], ATfQretLoc]; *xCMT points to this location 

xCNT *- (xCNT) - ( 10000C), dblgo toj’ZapDevices ,Qloop, ALU=0] ; 

/apOovicos: 

flootTvpo *- 0c; * This is a hard boot 

T <- 177400C; 
xCNT «- 0c; 

ZapDloop: OUTPUTfxCNT); "send a 0 to all registers of ail devices, hopefully quiescing them 

T <- (zero) t (T) + l; 
dblgo to[ZapDloop,DoMap,ALU<0]; 

"The following section tests the map as a memory, then determines the 
"amount of real storage in the system and sets up the first 
*N map entries to point to this storage (remaining map entries 
"are initialized to VACANT), then clears storage. 

DoMap: loadpago[0]; 

T <- StartMapInit, CallP[PNIP]; 

IMAP: CoinpFlag < (zero)- 1,goto[ imCompx]; 

imAloop: 

T < (CoinpFlag) xor (T); 
xmbufO <- T, cal l [ iinUri teMap]; 

T <• Map Entry; 

T «- (CompFlag) xor (I ), ca 11 [imReadMap]; 

MapEntry < T <- (MapEntry) + 1; 
goto[imAloop,noca rry]; 

MapEntry 140000C; 

imRl oop: 

T «- MapEntry; 

T <- (CompFlag) xor (T), call[imRoadMap]; 

MapEntry <- T <- (MapEntry) * 1; 

lu <- CompFlag, gotof imR loop, nocarry]; 

go to[ . +2, ALU = 0] , CompFlag «- (zero); 

imCompx: 

goto[ imAloop], MapEntry »• T <- 140000C; 


Real Page «- ( 10000C); "max real page H 

MapEntry <- 140000C; "carries beyond max VM cause ALUCY 

PageCount <- 0C; 

rlinkO V FFaultAdd; "location in fault handler 
stkp <- rlinkO; 

"fill first guadword of each real page with its page number and some constants. 

"go through real memory backwards so that hole in 96k modules will not 
"screw up non-hole banks. 

wbufl <- 326C; "random constant 
wbuf2 <- 134000C; 
wbuf3 «- (zero) ; 

imFloop: 

RealPage «- T <- ( Real Pago)-t; 

xmlnifO *■ T, goto[ .+2 ,ALU> = 0]; 

T <- RealPage *- 170000C, goto[imTloc-p); 

wbuf0 <- T; 

cal 1[ imWrItoMap]; 

PS to ro4[xmad0,wbuf0,0], goto[imFloop]; 

"during this phase, wo sweep upward through real storage and the map, and 
"use any real pages discovered. 

imTloop: 

xmbu F0 *■ T ; 

xmbufO <- (xmbufO) and not (170000C), call[imWrlteMap]; "set base reg to point to MapEntry, 

"set MapEntry to point to RealPage. Set all map flags off. 
nop; 

call[.+2], stack «• (Stack) or (100000c); "turn on fault handler 

ImFault: 

goto[ imPageBad], stack «• (Stack) and not (100000c); "get here on a fault - turn off fault handler 
PFetch4[xmad0,rbuf0,0]; "fetch. Will cause fault if page is bad 
T <- rbufO; 

lu <- (Idf[RealPage,4,14]) xor (T); 

gotof.+2, ALU = 0], stack <- (Stack) and not (100000c); "turn off fault handler 
goto[ imPageBad]; "page number didn't compare 
T <- (rbufl) xor (326C); "a final check against constants 
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rbuf 2 <- ( rhti f 2 ) xor (134000C); 
r *■ (rbuf2) or (T); 

T «- ( rbuf3) or (T); 

dblgotof imPayeGood, ImPageBad, ALU=0]; 
imPageGood: 

MapF.ntry «- (MapEntry) + 1; 

PageCount *- (PagoCount) + 1; 

ImPageBad: T <- Real Page <- (RoalPage) + 1; 

gnto[imTioop, nocarry]; *done with all of real memory? 
wbufl *• 00; ‘clear wbufl in preparation for core zap. 
imMa rkVacant: 

xmbufO *• 60000C; ‘page vacant 
Call[ImWriteMap]; 

MapEntry <- (MapF.ntry) + 1; 

T *- PageCount, goto[ imMarkVacant, nocarry]; ‘done with all map entries? 

imCo roZap: 

wbuf3 *■ 0C; 
wbuf2 *■ 0c; 

/.page <■ T; 

im/apl.oop: 

ZPago <- (/Page) -1; 

T <- 1 hmask[ZPage], goto[imOono, ALU<0]; 
xmadl <- T; ‘set up a base register for the page 
T «• 1 shf Zpago, 10] ; 
xmadO <- T; 

ZVJord <• 400C, cal 1 [ ImZPloop] ; 
imZP 1 oop: 

Zword <- r <- (/word) - (4C); 
goto[ imZapl.oop, AI.LKO]; 

PStore4[xmadO, wbufO], return; 


iniDone: 

lu <- (PageCount) -(400c); ‘don't try to run with less than 64K 
T <- MotF.noughMemory, goto[tn itFail , ALIKO]; 
goto[Reg In i 11] ; 


■I n i t F a i 1: 

loadpage[0]; 
cal 1p[PNIP]; 
go to[START]; 

‘SUBROUTINE imWritoMap writes the data in xmbufO 
‘into map location MapEntry 
intWri teMap: 

T <- (MapEntry) and not (140000C); 
xmadl *- T; 

xmadl <- (xmadl) and not (377C); 

T - IsliLMapEnlry , 10] ; 
xmadO <- T; 

Xmap[xmadO,xmbufO,0]; 

xmbufO «- xmbufO, return; ‘interlock 

‘SUBROUTINE imReadMap reads one entry from MapEntry 
‘into rbufO, then compares it with (MapEntry xor CompFlag) 
imReadMap: 

xmbufO < T, usectask; 

T <- apc&apctask; 

rlinkO < T, ca II[imWriteMap]; 

T <- lsh[xmbuf3, 10]; ‘flags, card, blk.O bits 
rbufO <- T; 

r <- ( xmbuf 1) and (377C) ; 
rbufO <- (rbufO) xor (T); 

T <- MapEntry; 

T <- (CompFlag) xor (T); 

lu *- (rbufO) xnor (T); ‘note, Map data is complemented, so we xnor 
goto[ iniGoodEnt ry, AI.U = 0]; 
imBadMap: 

T *■ BadMap, goto[ Ini tFai 1 ] ; ‘Some map entry was bad 
imGoodEntry: 

apc&apctask <■ rlinkO, goto[ i ni tRET]; 
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"Wo have initialized the map and memory. Before initializing and 
"starting devices, set up the R memory locations that 
"must be valid. 

Regin itl: 

Nova <- zero; 

Novah <- zero; 

DMAIi <- zero; 

R400 <- (400c); 

AllOnos «- (zero)-l; 

RZero <- zero; 
xCNT «- NextlliskAddr; 
stkp<-xCN T; 

t'-stack; "get next disk address from reg 237 

BootDiskAddr *- t; * save next disk address in reg 37 

* I1S232 initialization. . fake RS232 stop (task 16, locat ion RS232SI0<-l) 
xCNT <• OR@[LSIIirr[TTask, 14] , ANOQ[ 007400 , ADD| RS232SI0I.OC , 1] ) |C ; 
xCNT <- (xCNT) OR (AMD0[377, AOD[RS232SI01.OC, 1]]C) ; 

APC&APClask *- xCNT, TASK; 

Return; 

"Initialize the 38usec timer 
xCNT <- (tmr38conrog); 
stkp <- xCNT, task ; 
stack <- (50000c) ; 

stack <- (stack) or (156c) ; "simple timer,value 6,slot 16 

* with 100ns clock, period is 

* 4*10*100"6ns - 38.4 us 

* Alto is nominally 38.08 us 

LoadPage[In i tPage2]; 

loadt imer[stack ], gotofDevicelnit] ; 
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♦Find and initialize all I/O devices: 

*Tho idea is to use UM 40-57 as a "slot table" with one entry 
*per potential I/O controller. First the table is Filled 
'"with dummy controller addresses, and these are clocked out 
•to the controllers. Then, each controller is interrogated 
’for it’s Device ID, and these names are put in the table. 

“Then, for each slot, the device ID is looked up in a table 
•(in the control store) of potential devices, and if a match 
•is found, the entry from the device table is put into the 
♦slot table. A device table entry consists of the uPC value 
•of the device's initialization routine (12 bits), and the 
•task number for the controller. 

•When all slots have boon looked up, the task numbers aro 
•clocked out to the controllers, and the associated initialization 
•routines are called in turn. 

•To add a new controller to the system, it is only necessary 
•to add an entry to the device table (and add the controller’s 
*m icrocode). 

•first, a macro to allow nice formatting of the device table entries.., 

inf.'tdtab ,DATA[(LH[//l] , RII[LSIIIFT[//2,4] ,//3] , RSEL2@[dp[//l, /72 , //3’|] , at [dtab I oc]) ]SF.T[dtab 1 oc, ADD[dtabloc , 1]]]; 

•also, wo must make the parity of an entry correct, or Midas will correct it for us... 
ml4[dp, set [dpx , xor@f 1,//I ,//2 , //3]]se t[dpx , xor@[dpx, rshi f t[dpx , 10 J '|]se t[dpx , xor@[dpx ,rshift[dpx,4]]| 
sol[dpx,xor0[dpx,rshift[dpx,2]]]set[ dpx,xor@[dpx, rsli i f L[ clpx , L J ]’) 
so t[dpx,and3[ l,dpxJJdpx]; 

SETf DtabBase,add[Ini Ulase,100]]; 

SF.T[dtabloc, DtabBaseJ; 

•Here is the device table 

d tab |'2003.Diski n i 11 oc , DTask] ; *IRDC ID = 2003b, 
d t ab[ 24 02 , El he rln In i t Loc, EI Task]; '“Ethernet input = 2402b 
dtab[240 l, EthcrOut In i tloc , EOTask] ; *01d Ethernet output - 240.1b 
dtabj'3400 , F. therlnln i tl.oc, EITask]; '“Ethernet input = 3400b 
dtab[3000,EtherOu tinitLoc,EOTask]; *Ethemet out put = 3000 b 
dtab[6400,EtherlnInitloc,EITask]; * XWire input 
d t ab [ 6000 , E t ho rOu t In i ll_oc , EOTas k] ; * XWire output 

*=*•****• Start of Pilot Code ********•«****♦**»***»*«*»**».**.**♦««**««* 
dtab[2402 , Etherlnlni tLoc2 , F.ITask2]; *2nd Old Ethernet input * 

dtab[2401,EtherOutinitLoc2,E0Task2]; '“2nd Old Ethernet Output * 

dl.ab[3400 , Etherlnln i tLoc2 , EITask2] ; *?nd Ethernet input * 

dIab[3000,EthorOutInitLoc2,EOTask2]; *2nd Ethernet Output • 

dlab[ 6400 , Etherlnln i lEoc.2 , E ITask2] ; *2nd XWire input • 

dtab[6000,EtherOutlnitLoc2,E0Task2]; •2nd XWire Output * 

• = *• * * * * * End of Pilot Code ****** * * * » ****************** * ****** * * * * * * * * 

dtab[1417, Rdclnitloc, RdcTask]; *SA4000 

dtab[1407, RdcInitLoc, RdcTask]; *SA4000 

dial)[2417, RdcInitLoc, RdcTask]; *SA4000 

dlal>[2407, RdcInitLoc, RdcTask]; *SA4000 

dtab[411,DisplaylnitLoc,uiUTEPTASK |; *IUTFP ID = 411b 

dtah[0,0,0]; *final entry in the table must bo zero 

l)NPAGT[I 11 i tPage2]; 

Dev 1 coinit: loadpage|0]; 

T<- Start Dev ice I ni t, cal 1 p[PMIP] ; 
xCN T «- 57c; 

stkp <- xCNT, xCNT «- 7 <- (xCNT)H, call[DIl]; 

•stkp = 571), xCNT = T = 60b here. 

•Write 60-77 into RM 40-57 
Dll: stack&+l <• T; 

1u <- (xCNT) xor (77C); 

xCNT <- T <- (xCNT) + 1, goto[DI2, alu=0]; 
return; •return to Dll 

•Send dummy controller addresses to devices 
III2 ; xCNT «- 5/c; 

stkp «- xCNT, cal 1 [C lockOu tPa ttern] ; 

*stkp = 57b here 

xCNT «- T 177400c, cali[DI3'|; *Read controller ID's from register 0 of all devices 
D13: INPUT[stack]; 

nop; ♦allow xCNT & T to be written 

xCNT <- T <- (xCNT) + (20C), goto[DI4, R>-0]; ‘advance to next device 
devRET: return; “return to DI3 

•look up each slot table entry in the device table 
DI4: xCNT ♦- 40c; 

stkp <- xCNT; 
xCNT <- 17c; 

assigned «- 0c; * Bit mask of as igned tasks 
D14 x; Devlndex *- 0c; ‘base of device table in control store 

DI4y: T <- Devlndex, cal 1[GetCon]; *get a device ID from the device table 

lu <- (stack) xor (T); ‘comparo with the slot table entry 
goto[DevFound, aiu = 0], lu «• T; 

DI4u: goto[DI4y, ALU//0], Devlndex (Devlndex) + (2c); ‘check for end of table (zero entry) 

stack <- 17c; ‘end of table reached without match - set slot's task to 17 (unused) 

DI4z: xCNT <- (xCNT)-l; ‘check for all slots processed 

stack&-l, dblgoto[DI4x, DI5, ALU>-0]; *set to next slot 

DevFound: nop; ‘allocation constraint 

T <- (Devlndex) + 1, cali[GetCon]; 
initpc «- T; 

T <- LDF[initpc,14,4]; * Task number about to get assigned 
contemp <■ T; 

contemp <- LSH[contemp,4]; 
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CycleControl <- con temp; 

T <- WFA[A1 I Ones]; 

LU <- (assigned) AND (T); 

SKIP[ALU=0]; 

GOTO[OI4u], LU *• 1C; * Keep looking, task already assigned 

assigned <- (assigned) OR (T); 

T <- initpc; 

******* Still't of Alto Codo ****** ***************** * 

stack *- T, goto[DI4z]; ‘replace slot table entry with device tabic entry 
*//**“»*» End of Alto Code ***•*«♦«••********•*****•*•***•••»»****♦*** 

*-******* g p-£ q f P'jlot COdG ********** ************************* ******** 
stack <- T;*repiace slot table entry with device table entry 
rbufl <- T; * device table entry contains task assignment 
T *- StkP; 

rbufO <- T; * save the device pointer 

rbufl «- (rbufl) AND (17C); * got the task assignment 

T <- (LSH[rbufl, 4]); 

rbufl <- T; 

•StkP «- rbufl; 

I *• ( rbufl) + (177400C); 
rbufO *- (rbufO) X0I1 (377C); 

Stack <- T; 

StkP <• rbufO, Goto[DI4z]; 

* = “**“* End of Pilot Code **»****»»*«**»* »»*** »***«*»« ******** *** **• * 

‘Clock out new controller ID's 
DIG: xCNT <- 5/c; 

stkp <- xCNT, call[ClockOutPattern]; 

‘Call all the Init routines 

xCNT <- 17c, call[DI6|; ‘do call to set lip TPC for loop below 

DI6: xCNT <- (xCNT)-l, goto[OI7, R<0]; 

lu <- ldr[(stack),4,14]; ‘check for Init PC = 0 (no initialization required) 
goto[.+3, ALU-0], T «- Stack&-1; 

Devlndex <- T; "set up to call Init routine for device 

APC&APCTask «- Pevlndex; ‘call Init routine for controller - returns to DI6 
re 1.11 rn; 

DI 7: LoadPage[In i tPagc]; 

ErrorCnt <- (10c), gotofBootEmu 1 a torsJ; ‘Set up retry count for disk boot 

ClockOutPattern: 

usoctask; 

I <■ APC&APCTASK; 
rl inkO <- T; 

xCNT <- l/c; *go through the slot table backwards 
C0P1: Devlndex <- 2c; ‘Devtndox used for loop count 

C0P2: T <- (stack) xor (1C): ‘complement bit 

GENSRCLOCK; ‘send bit 

stack <- rcy[ stack, 1] ; ‘get next bit 
Devlndex <- (Devlndex) - 1, goto|'COP2, r>-0]; 
xCNT <• (xCNT) -1; ‘all slot table entries done? 
stackS-1, goto[C0Pl, alu>=0J; ‘got next word 
APC&APCTASK *- rlinkO, goto[devRET]; 

GetCon: contemp *- T; ‘word index into Dtab 

contemp (contemp) (AND@[ lsh if tfDtabBase , 1] , 17400]C); 
contemp «- (contemp) or (AND0[ 1 shi It [Dt abB.ase, 1] , 377]C); 
contemp <- rsh[contemp,1]; ‘instruction address in CS 
T < (1df[All Ones,17,1]) and (T); ‘low bit tolls which half 
APC&APCTask «- contemp; 

READCS; 

T <- CSDATA, return, Al[1shift[InitPage2,10],100]; ‘location must be even 

OnPage[InitPage]; 

BootEmulators: 

lu <- BootType, goto[BootSeoondBlock, R even]; 

* loadpageflnitPagel]; 

* gotop[DiskBootDone]; 

t *■ xl’Temp, loadpage[0j; 
gotop[I.RJ loop]; 

‘Read disk Sector 0 into page 0 (starting at location 1). 

DiskBoot: 

loadpago[0]; 

T«- StartDi skBoot, callp[PNIP]; 

initrO «- 0c; ‘word 520 - not used by disk 

initrl «- 0c; ‘word 521 - I0CB pointer 

initr2 *- 0c; ‘word 522 - disk status 

initr3 0c; ‘word 023 = -1 to force a seek 

t‘(R400)or(120c); 

pstoro4[Nova,initrO],CALL[initRET]; ‘clear KBLK at 521-523 (520 is also cleared) 

•Set up the IOCB at 1000b 

DMA«-1000C; ‘set up base register for DCB 

PSTORE2[DMA,in itrO,0],CALL[initRET]; ‘clear pointer to next DCB at 1000b, status at 1001b 

xCNT «- 44000C; ‘disk command goes at location 1002 (read, read, read) 

PST0RE1[DMA,xCNT,2], CALL[initRET]; 

xCNT «- 2000C; ‘header goes at 2000 (unlike ALTO) 

PST0REl[DMA,xCNT,3], CALL[initRET]; 

xCNT <- 400C; ‘label goes at 402 (like ALTO) 
xCNT *- (xCNT) + (2C) ; 

PST0RE1[DMA,xCNT,4], CALL[ initRET]; 

xCNT <- 1C; 

PST0RE1[DMA,xCNT,5], CALL[initRET]; ‘data goes at 1 
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♦Since we will initialize the interrupt system later, we do not need to worry about 1006 or 1007 
♦Location 1008 Is unused 

xCNT 1C; 

PSTORElfDMA,xCNT,11} , CALL[in itRET]; “Disk address 0, with RESTORE bit at 1009 

r *■ 2000c; 

T <- (zero) + (T) H; 

PSTOHElfiiova.xCMT], cal 1[ ini tRET] ; ‘smash hoader at 2001b 


♦Start the disk 

ini t r 1 «- 1000c; 'word 521 - I0C13 pointer 
initr3 «- (zero)-l; *word 523 a -1 to force a seek 

T <- (R400) + (120C); *store block above in 520-523 (words 0 and 2 are zero) 
PSTORE4fNova, in it r0] , call[ initRET]; 

♦Wait for the disk to store good status in tho DCO, retry if status is bad 
ErrorCountX <- 20c; 

DWSot; Dovlndex <- (zei'o)-l; ‘loop count for status wait 
DiskWait: Pfetchl[l)MA, xCNT, 1]; ’fetch status word at 1001b 

T <- 170 , call [ini tRET]; 
lu <- (1 df[xCHT,4,4]) xor (T); 

go tof StatlisSlo rod , ALU-0] , lu <- ldf[xCNT, 10,10]; 

Dovlndex ♦- (Dovlndex)-1; 
go to[Di skWai t, ALU//0 ]; 

ErrorCountX <• (ErrorCountX) -1; 
gotofDWSet,ALU>=0]; 

NoStatlls: 

T *• HoOiskStatus, gotofInitfai1]; ’timed out waiting for disk to store status 

StatusSto red : dbl go to [Goods tatus , IncE rCnt, ALU-0] , FREEZERESULT; 

GoodStatus: T<- (2000C) ; ’chock header at 2001 
T <- (zero) + (T) + 1; 

PEETCHlfNova,xCNT],CALL[init RET]; 

LU‘xCNT; 

IncErCnt: 

skip[ALU//0] , ErrorCnt ♦- (ErrorCnt)-1; 
go to[LoadOthcrCSJ; 

gotofBootFaiI,ALU < 0]; ‘bad header, try again 
go tofDiskOoo t]; 

Boot Fai1: 

T BadBoot, gotof In itFai 1 ]•; ’road 10 times, but header was wrong 


’SUBROUTINE PNIP puts the number in T into the maintenance panel 
•It will be used after initialization is complete 
♦Does not task unless called from task 0 
0NPAGE[0]; 

PNIP: usectask, R TEMP *- T, at[PMIPBaso, 20] ; 

T <- APC&APCTask, atf PNIPBaso, 17]; 

RCNT <- T, ClearMPanel, calif.+ 1], atfPNIPBase,0]; 

PH loop: RTEMPl «• 4C, at[PNIPBase,1]; 

R TEMP 1 <■ (RTEMPl) 1, dblgotof . H, . , AltKO] , atfPNIPBase , 6] ; 

RfEMP <- (RTEMP) - 1, atfPNIPBase, 7]; 

lu <■ 1dffRCNT,0,4], gotofPNdone, ALLK0], atfPNIPBase,16]; 
skipfalu//0], atfPNIPBase,4]; 

IncMPanel, return, atfPNIPBase,2]; ♦ task 0, tasking ok 
IncMPanel, gotofPNloop], atfPNIPBase,3]; * task //0, tasking not allowed 
PNdone: APC&APCTask <-■ RCNT, atfPNIPBase ,5]; 
return, atfPNIPBase,15]; 

♦SUI1R0UTTNL Dolnt ORs the bits from T into NWW and sets 
♦IntPending. Uses registers 0 and 1 in whatever task calls. 

♦This code must not allow task switches. 

•If TfO] = 1 on entry, the routine does a tasking return, else it returns without tasking 
ONPAGEfO]; 

RVfIntTompl,0]; 

RVfIntTomp2,1]; 

Dolnt: IntTempl <- T; 

Intremp2 <- pNWW, skip[ALU<0]; 

T <- 377c, gotof.+2]; 

T <- (Zero) - 1; 

T <- (Stkp) xor (T) ; 

Stkp <- IntTemp2, IntTemp2 <- T; 

T «• (IntTempl) and not (100000C); 

IntTempl <- 342c; * RSImage in Kernel 

Stack <- (Stack) or (T); * set bits in NWW 

Stkp * IntTempl, skipfALU=0]; 

T «- Stack *- (Stack) or (IntPend ingtiit), gotof. +2]; 

T «■ Stack; 

Stkp <- IntTemp2, skipfR<0]; 
usectask; 

RS232 <- T, return; ♦ set IntPending 


% 

♦Very simple fault handler, used only during initialization. 

♦If IMAP or DEVICEINIT expects an error, it will set up its 
*TPC to point to the instruction to be executed if an error 
♦occurs, and will set RM 354 II 0. When the hardware gets a fault, 

♦the Kernel will send control to 120 if RXPPBf4:7] tt 0. This code 

♦checks RXPPB to determine the type of error. If it is a memory 

♦error and RM 354 It 0, it does RESETMEMERRS and RETURNS. If not, it notifies 

♦location 7514, task 17 (Kernel go3 overlay location BPSEND). 
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SETTASKf17]; 

HVfRXPPR,23]; "Page, parity, bootroason register in kernel 
ltV[RDatn, 43]; "Register holding data to bo sent to Midas 

RV[FFAULT,54]; "zero means send all Faults to Midas, nonzero moans return on memory errors 


OriPagefO]; 

FAULTxx: lu <- L0F[ RXPPR , 7 ,1] , AT[120]; 

goto[MeinE rr, a lu//0], lu <• FFAULT; 

"Error was not a memory error 

MidasFault: RData <- 177400c; "Notify kernel at 7514b 

ROata «• (RData) OR (114C); 

APC&APCTASK r RData; 

RETURN, RData «■ 40400C; "Message for Midas * 101b 

MemErr: go to[ . +2 , ALU//0] , RESETMEMERRS; 
gotofMidasFault]; 

RETURN; "back to the task that caused the fault 

% 


END; 
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INSERT[DOLANG]; 

NOMIOASINIT; 

TITLE[kernel]; 

X 

Modified June 28, 1979 by RJ. (FFault «• 40000c) 

Modified June 28, 1979 by Cl. 

This kernel consists of two parts: 

1) A section that occupies part of pages 0 and 17, runs at task 17, and bandies 
all communication with Midas with the exception of Mouse halt testing 

(which Is done by a tinier). This section refreshes the memory frequently 
without using a timer. 

2) A section that occupies part of page IS, runs at task 16, and handles 

kernel initialization, normal memory refresh and Mouse bait testing while a program is running. 

Tho idoa is that if you have a simple program, you can use both parts of 
this kernel, and you will got minimal memory refresli and mouse halt testing. 

If you need something more complex, you overwrite the stuff on page 16, 
but in tills case you must supply the code for mouse halt testing. 

% 

SETTAS!<[ 17]; 

RV[REFR, 77]; ’'memory refresh address 

"The following registers hold the volatile state of the processor on a fault: 

RV[RXALU, 7 6]; 'ALU resul t and SAl.UE 

RVfRXAPC,75]; "APCTask&APC 

HV|RXCTASK,74]; *C TASK.NCIA 

RV[RXPPB,73 |; "Page,Parity,Root Reason 

RV [ R X S T K, 7 2 J ; "Stackpoi liter 

RVj'RTMP , 71]; "temporary 

* The following registers are used for DO-Midas communication (RTMP is also used): 

RV[RWSTAT,70'|; "status register 
RV[RDATA,67]; "holds data 

"TFault determines how faults will be treated when programs are running. If it is 
"zero, all faults will be reported to Midas. If FFault is nonzero, the kernel will 
"send control through location 120 when a fault occurs and PARITY // 0 (Faults with 
"PARITY = 0 are breakpoints). 

RV[FFAULT,66]; 

"Registers between 360 and 365 are used by the Midas overlays. The following 
"registers, used by WriteMI, are also in this range. 

RV[RADDR,65]; 

RV[RCNT,64]; 

R'/[RW0,03]; 

RV[RW1,62]; 


"Constants for Recv and Send 
MCfRecvIJy te, 12]; 

MC|RecvWo rd,16]; 

MC[Sendlly te, 21] ; 

MC[SendWord,25]; 

IMRESERVF.[ , 7501,11]; "space for Midas overlays (7500 -752/) 
IMRESERVE[,75X3,15]; 

SF.T[CMDisp,7420]; *8-way dispatch on Midas command 

SET[RWOisp, 7440]; *4-way dispatch on state bits of RWStat 
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‘After loading kernel.mb, Midas starts It at 7000 
Start: 

I!IMP <- tc, AT[/000]; 

RTMP <- (RTMP) >• (7000C),goto[KNotify]; “Notify Task 0, address 7001 

KNotify: 

APC&APCTASK +- RTMP; 

Kill; 

RETURN; 

SETTASK[0] ; 

* R definitions 
RV[R0,0]; 

RV[R1,1]; 

RV[R2, 2]; 

RV[R3,3]; 

RV[R4,4]; 

RV[R5,6]; 

RV[RG,6]; 

RV[R7,7]; 

RV[R10, 10] ; 

RV [ It 11,11 ] ; 

RV[R12,12]; 

RV[ R13,13]; 

RV[R14,14 "1; 

RV[R15,15]; 

RV[RIG,16]; 

RV[R17,17]; 


■“Clear R0-R17 to avoid R parity errors later 
R1 <- Oe, AT[ 7001] ; 

R2 <• 0c; 

R3 <- 0c; 

R4 <- Oc; 

R5 *■ Oc; 

R6 <- Oc; 

R7 <- Oc; 

RIO <- Oc; 

Rll <- Oc; 

R12 <- Oc; 

R13 «- Oc; 

R14 <- Oc; 

R15 *- Oc; 

R16 *- Oc; 

1117 <- Oc; 

"Clear R20-R377 using Stkp 
RO <■ 20c; 

IIC1 e a r: 

Stkp «- RO; 

Stack <- Oc; 

lu <~ (RO) xor (377c) ; 

RO <- (RO) 1 1, goto[RC 1 ear,ALU//0]; 

RO <- 5c; ‘Notify task 17, location 7005 

RO <- (RO) + (177000c); 

APC&APCTASK <- RO, goto[Knlj; 


SETTASK[17]; 

RTMP <- (400C), AT[7005]; *set Printer idle, don't drive bus 

Printer *- RTMP; 


RTMP <- (100000C ); 

Cl rTimers: 

LOADTXMER[RTMP I; ‘Clear out all Timers 

RESETMEMERRS; ‘Clear any pending memory errors 

FEAULT «- 40000c; ‘Initialize so that Midas takes faults 

RTMP <- (RTMP) + 1; 

LU <- (RTMP) AND (17C); ‘there are 16d timers 
REFR (OC), DBLGOTO[ In i tDone, ClrTiiners, ALU-0] ; 

InitDone: 

LU «- TIMER; ‘Set up the Refresh timer 

RTMP <- (5 0000C); 

R1MP <- (RTMP) OR (27 7C); ‘simple timer, value lid,slot 17b 

LoadTimer[RTMP]; 

‘Notify task 16, address 7030 to set up timer task 
RTMP <- (1G7000C); 

RTMP (RTMP) OR (30C), goto[KNot 1 fy]; 


Call[TimerlnitDone], AT[7030J; ‘Set TPC[16] to TimorTask 


‘The simple timer task assumes slot 17 expired, since all others were cleared. 

TimerTask: 

Refresh[REFR]; 

lu «- Timor; ‘read timer to clear the wakeup 
REFR *- (REFR) + (20c); 

RTMP <- (G0000C); ‘build timer constant 

RTMP «• (RTMP) OR (277C); ‘simple timer,value lid,slot 17b 

AddToT1mer[RFMP]; 

CheckStop: 

T <- Printer; 

RTMP <- T; 

LU <- (RTMP) AND (10000C) ; 

GOTO[MidasStop,ALU/70] ; 

TimerRet: RETURN; 

MidasStop: 

LU <- T, goto[MidasStop],SetFault, AT[7003]; ‘Midas recognizes a mouse halt as 
*a task 16 breakpoint that was not set by the user. It continues from (absolute) MidasStop+1 
MidasRestart: return, AT[7004]; 
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•return to task 17, address 7400 
TimerlnitDone: 

rUMP (17 7400C), goto[KNot'lfy] ; 
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‘Page Zero stuff 

"Wo put the instruction for BuffarRefill hero.. 
x377x: gotop[x37/x], at[377]; "dummy Instruction 

loadpage[0], goto[x377x], at[0J; "Emulator buffer refill code is on page 0 
T *- APCTASK&APC, AT[1]; "Fault entry. Save APC first, then the other volatile regs. 
RXAPC »- r, A f[ 100] ; 

T GETRSPrC[147] , AT[101]; "ctask, ncia 

RXCTASK «- T, AT[102]; 

T <■ (GETRSPF.C[ 103]) xor (377c), AT[103]; "sstkp, stkp (stkp is road complemented) 

RXSTK « T, AT[104]; 

RTMP <- 20c, Af(105j; "Sot stkp to 20 In case there was a stack overflow pending 
Stkp <■ RTMP, AT[106]; 

T <- (CETRSPF.C[107]) xnor (Oc), AT[107]; "aluresult, sa'luf (both read complemented) 

RXALU *- T, A T [ 110 ] ; 

T *• GF.TRSPLC[ 157] , LOADPAGF[0] , A T[ 111]; "page, parity, bootreason 
RXPPB <- T, RFSETERRORS, AT[112]; 

"Notify Task 17, address 7505 (breakpoint communication) 

RTMP *- (17 7400C), AT[U3J; 

RTMP <• (RTMP) OR (105C), AT[114'J; 

APC&APCTASK <• RTMP, AT[116]; 

RETURN, AT[ 116] ; 

"The go overlay will send control to UserFault (120) if PARITY H 0 and FFAULTC0 
UserFault: 

1oadpagc[17], at[120]; "User may overwrite these instructions if desired 
gotop[MidasF'ault J , at[117]; 
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"The following is the page 17 portion of the kernel. Wo get hero 
•after setting up the timer task. 

RDATA <- 40000C, AT[7400]; "send //100 to Midas 

PW ST AT *- SendOyto , CALL[Send]; 

NextCoin: 

RWSTAT «- RecvByte, CAt.LfRecv], AT[/404]; 

Di spatclif RDATA ,15,3]; 

DISP[Do0ver1ay]; 

DoOver I ay: 

GOfOfOvorlayArea], AT[CMOisp,0j; 'Midas overlay 
OverlayArea: 

return, AT[7500j; 'placeholder for overlay 

MidasFault: 

return, AT[7512j; 'placeholder for fault in Midas go overlay 


WriteMT: 

RWSTAT <- RecvWord, CALl.fRecv], AT[CMD1sp,2]; 'Write Control Store 
IIA DDR *■ T; 


RWSTAT <- 
RCNT <- T; 
WriteMILoop: 

NOP; 

RecvByte, 

CALL[Recv]; 

"Got 

Coun t 

(byte) 

RWSTAT <- 
RWO *• T; 

RecvWord, 

CALL[Rocv]; 

"Get 

Data 

0 (word) 

RWSTAT <- 
RW1 »- T; 

RecvWo rd, 

CALL[Recv]; 

"Get 

Data 

1 (word) 

RWSTAT <- 

RecvByte, 

CALL[Recv]; 

"Get 

Data 

2 (byte) 


UJ RWO; *T has data 2 

APC&APCTASK r RADDR; 

WRITECS0&2; 

LU *- IIW1, AT[CMD i sp, 12]; "force writecs to have JA.7 = 0 
APC&APCTASK «- RADDR; 

WR1TECS1; 

RADDR <- (RADDR) + 1, AT[CMDisp,14]; "force wri tecs to have JA.7 3 0 
RCNT <- ( RCNT) -1; 

GOTOfWriteMILoop , ALU//0]; 

G0T0[NextCom]; 


"Read a single R register. Midas will 
"to avoid generating stack overflow. 
ReadR: 

RWSTAT <- RecvByte, CALI[Recv], 
STKP <- RDATA; 


nop; 

T *- STACK; 

RDATA <- T; 

RWStat *- SendWord, Call [Send]; 
GOTO[NextCoinj; 


use an overlay to read RM 0 and RM 10 - RM 17, 


AT[CMDisp,4]; "Get Address 


"Write a single R register. Midas will use an overlay to write RM 0 and RM 10 - RM 17, 
"to avoid generating stack overflow. 

W r i t o R: 

RWSTAT <- RecvByte, CALI [Recv], AT[CMDi sp , 6] ; "Got Address 
STKP < RDATA; 

RWSTAT <- RecvWord, CALL[Recv]; "Get (word) data 
STACK *- T, GOTO[NextCom]; 
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"SUBROUTINES Send and Receive communicate with Midas. 

Send: T <• rsh[RI)ATA, 10], AT[74G0]; "get msh.yte (location 7400 is known to overlays) 

RTMP «- T, gotofRPRT]; "will got WrStrb on 
Recv: RDATA <• Zero, AT[7464"|; " location 7464 is known to overlays 

RW: RefroshfREFR]; "Refresh the memory 

RTMP 1 - 30c; 

Dlyloop: RTMP < (RTMP) -1, gotofDly1oop,R>-0]; 

REFR <- (REFR) + (20C); 

T <• Printer; *Get Printer data 
RTMP <- T; 

T <- Printer; "Insist that the printer yield the same data three times. 
l.U *- (RTMP)-(T); 

T«- Printer, Gotof . +2 , ALU=0] ; 

Goto[RW]; 

LU (RTMP)-(T); 

Gotof . + 2,ALU = 0]; 

Gotof RW]; 

T <- LDFfRTMP,0,2]; "Get strobe/ack bits 

LU <- (EDFfRWSTAT,16,2]) xor (T); "Compare to desired bits 

T <- RTMP, CO TOfRW,ALU//0]; ’if reached, clear all bits 

RTMP <- 400C; 

Printer <- RTMP, RTMP *■ F; "restore RTMP 

DispatclifRWSTAT,13,2 |; "dispatch on state bits of rwstat 

LU <- (RWSTAT) AND (4C), DISP[RoadStroboOff]; "setup byte/word 

ReadStrobeOff: 

USECTASK, GOTOfReadMore, ALU//0], AT[RWDisp,0]; "Got Another byte if word set 
T < RDATA, RETURN; 

ReadMore: 

RWSTAT <- RecvByte, GOTOfRW]; "Go get another byte 
ReadStrobeOn: 

T «- RHMaskfRTMP], AT[RWDi sp , 1] ; "Get Data Byte 
RDATA <- ( LSIIf RDATA , 10 ]) OR (f); "Merge Byte 

RWSTAT (RWSTAT) AND (40); *State«-0, Look for RDSt rb off, retain byte/word 

RTMP <- (100400C); "Set RdAck 

RPRT: Printer <- RTMP, GOTO[RW]; 


"Here on Write Ack On - state *■ 3 

RWSTAT <- (RWSTAT) XOR ( 11C ) , GOTO[RW], ATfRWDisp,2J; 

"Merc on Write Ack Off 

RDAfA *- l.SII[RDATA, 10], gotofSendMore, ALU//0], AT[RWDisp,3]; 
ill <- Zero, gotofReadSt roboOf f]; "must do non-tasking return 
SendMore: RWSTAT <• SendByto, gotofSendj; 
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insertfdO1ang]: 

NOME DASIN IT ; LANGVF.RSION ; HU LTD IB ; 
lnsert[GlobalDofs]; 

titie[key]; 


last modified by Johnsson, August 17, 1979 12:27 PM 


* KoyBoard Translation Table from DO's to ALTO's 

* Entry in the table is b i tnumber*8< wordnuinbsr 


in0[byte.DATA[(LH[LSHIFT[//l, 10],7/2], RII[LSHIFT[//3,10],//4-], 
RSEL2§[pp[//l ,//2 ,7/3 ,7/4]] 

,at[byte1oc])] 

SET[byteloc,ADD[bytoloc,1]]]; 

m@[pp, set [ppx, xor@[ 1,7/1, //Z , 773, //4]]sot[ppx , xo r0[ppx , rshi f t [ppx , 4]]] 
so t[ppx, xo r0[ppx, rslii f t [ppx , 2 ]]]set[ppx, xor0[ppx , rsli i f t[ppx , 1]]] 
set[ppx,andO[1,ppx]]ppx]; 


se t[b.ytel oc , key table]; 

byte[177,177,177,177]; *00 

byte[177,177 ,177,177 |; 
byte[177,177,177,177]; 
byte[177,177,177,177]; 


byte[005,150,115,100] 
by t e [ 0 75,171,065,163] 
byto[172,100,055,045] 
by to[030,020,012,1/ 7] 


*04: 

* Dl, H0(\), T9, TO. 

* T7, R6(8W), T6, L12(TL4 ) . 

* L9(FT.3), L6(LT), TO, T4. 

* T3, T2, Tl(osc), . 


byte[164,177,125,144] 
byte[004,173,177,024] 
by to[034,044,004,177 ] 
byte[1/7,064,177,177] 


* 10 : 

* R4, , Rl, R2. 

* R5, R3(FR5), , L10. 

* L7 , L 4, LI. 

* , A9, , . 


byte[ 104,074,014,150] 
b.yte[ 161,153,113,104 ] 
b,yto[ 114,124,134,162 | 
byte[042,177,177,177] 


*14: 

* R7, RIO, Rll, R8. 

* R9(TR4), R12(swat), A7(space), Lll. 

* 1.8, L5, 1.2, L3( DEL). 

* A8(CTL) , , , . 


byto[177,177,143,140] 
byte[ 122,131,073,063] 
bytc[072,070,002,10lj 
byte[102,177,135,177] 


* 20 : 

* , , AO(shift-R), /. 

* . , (comma) , m, 11. 

* b, v, c, x. 

* z, , 47, . 


byte[ 142,102,141,132 ] 
by to[121,110,062,043] 
byto[023,032,050,041] 
byte[001,177,103,112] 


*24: 

* A4(return), 46(<-), (quote), 

* i , k, j , h. 

* g. f, d, s. 

* a, , A3(lock), A5(shift-L). 


byte[145,151,123,130] 
byte[lll,071,060,033] 
byte[0.13,003,030,021 ] 
byte[031,022,177,174] 


*30: 

* A10, 45(] ) , 42([ ) . p. 

* 0 , i, 11 , y. 

* t, r, e, vi. 

* g, Al(tab), , D2. 


by te[ 170,133,120,100] 
byte[061,053,040,020] 
byte[000,010,001,011] 
byte[002,015,177,177] 


*34: 

* A2(bs), =, -, 0 

* 9, 8, 7, 6. 

* 5, 4, 3, 2. 

* 1, 48, , . 


end[key]; 
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TITLEfuiDEFS]; 

•last edit by Chang on September 10, 1979 4:45 PM, move Timer's regs 

* edit by CPT December 22, 19/0 3:10 AM 

* edit by Sandman March 23, 1979 3:02 PM 

* edit by Jarvis August 10, 1979 11:35 AM 

•UIDEFS.MC -definitions for IUTFP revision I 

SET[uiUTFPDASEADDR,LSIlIFTf uiU TFPPAGE,10]3; "FIRST ADDRESS OF UTFP PAGE 


•REGISTERS AND CONSTANTS USED BY UTFP TASK 
SETTASKf 11 iUTFPTASK]; 

SE r[uiREADSTATREG,1]; 

■SETf uiDBREG , 1]; 

SETf 11 1C REG , 2]; 

SETf u illEBUF, 3] ; 

SETf uiCXREG,4]; 

SF.Tf u illTAB , 5]; 

SET[u1BPREG,6]; 

SEIf uiCURSM,7]; 

SEIfuiDBADDR,ADDf 1 slii f t[tiiUTFPTASK, 4], 1 j]; 

MCfBi kBkgndfi it, 100"|; 

RVf ti iDWA, 0] ; “bit map base register 
RVfuiDWAl,1]; 

RVf ui TEMP, 2 ]; "must be oven/odd pair, see uiDCODONE for PFETCII2 
RVfu iTEMPI,3]; 

RVf u iMPSTATUS, 4]; "keyboard decode state, bits 10-12: count, 13-17: part 
RVf u i MOUSF.DEL XY, 5]]; "BITS 0-5: XDEI.TA, 10-10: YDEETA 
RVf uiTMSG , 6]; "INCOMING PARTIAL MESSAGE 
RVfuiXMSG,7]; ‘MESSAGE HELD FOR POSTING BY VSYNC 

RVfui LINK,10]; "DISPLAY CONTROL BLOCK WORD 0 

RVfniNWRDS,11]; "DISPLAY CONTROL BLOCK WORD 1 

RVfu iDDA,12]; "DISPLAY CONTROL BLOCK WORD 2 

RVfuiHERAT,12]; "Used during initialization only 

RVfuiSLC,13]; "DISPLAY CONTROL BLOCK WORD 3 

RVfuiHEADDR,13]; "Used during initialization only 

RVfuiQTEMP,10]; "Used for Store4 to post mouse buttons (uiVS4) 

RVfuiQTEMPl,11]; 

RVf uiQTFMP2,12]; 

RVfuiQTEMP3,13]; 

RVfuiBUFPTR,14]; 

RVf uillECNT , 14] ; "Used during initialization only 
RVfuiCRWORD,15]; "IMAGE OF HARDWARE CONTROL REGISTER 
RVfuiVSCOUNT,16]; "Count of lines per field. 

RVf 11 i HE LI N K, 16]; "Used during initialization only 
RV|uiLTNESPERFIELD,17]; *404 = G245 linos per field 
mefIpflo,224]; 
me fIpfhi,400]; 

RVfuICCO, 10]; * used during initialization only 

RVfuiCCl.il]; * used during initialization only 

RVfu1CC2,12]; * used during initialization only 

RVf 11 1CC3,13]; * used during initialization only 

* RVfRTCLOW,25]; "Must be the same as timer's 
RVfRTCL0W.55]; "Must be the same as timer's 

RVfuiCX,30]; "Cursor X 
RVfuiCY,31]; "Cursor Y 
RVfuiCNT,32]; 

RVfuiBASE,34]; "BASE REGISTER PAIR 
RVfu iBASEX,36]; 

RVf 11 i MBUFPTR , 36]; 

RVfuiBUTTONS,37]; 
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* horizontal event RAM 

♦count hor[l:9] and patterns her[12:15] each bit represents 4 pixels of scan 

* her[12] CLR 

* her[13] US 

* her[ 14j Blank 

* her[15] Half Line Clock 


nicfhorO, 

4 001 

mcfliorOp, 

203]; 

* 

0, 



f) 1 an k, 

Hal f 

Line 

6 

rnc [ lie rl, 

13000 | 

mc[ lie rip, 

101]; 

* 

131, 




lia 1 f 

L i no 

09 

mc| ho r2, 

OJ 

mej lier2p, 

200]; 

* 

2 






2 

me[herd, 

20000 j 

mefhor3p, 

111 

* 

250, 




Half 

Lino 

100 

mef lier4 , 

1000 1 

mc[ lie r4p, 

203]; 

* 

12 , 



Blank, 

Half 

Lino 

10 

me[herb, 

0] 

mc[ lierbp, 

2 06 ] ; 

* 

2, 


IIS, 

B1 ank 



2 

mc[her6, 

12000 j 

mc[he r6p, 

107]; 

* 

121, 


IIS, 

Blank, 

Half 

Line 

01 

nic[her7 , 

0] 

mc[ho r7p, 

117]; 

* 

1, 

cut, 

MS, 

111 ank, 

Half 

Lino 

1 

mcfher8, 

0] 

mc[lior8p, 

103 ]; 

* 

1, 



Blank, 

Half 

Line 

1 

mcl'horO, 

23000] 

mc[her9p, 

12] ; 

* 

230, 

CLR, 


Blank 



152 

+ * :h ih ill * * >|i 

#««*** 

" total 


1000 

* * * * 

* * * 

k Hi * * * :« * 

* * * * 

>ft * 4t « 

512 
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insertfdOlang]; 

HOMIDASINIT; LrtNGVERSION; MULTDTR ; 
insortl'GlobalDefs]; 
inso rt[ LEDof s']; 

l. itle[UIIn1t]; 

*last fid it by Johnsson Apr il 7, 1979 12:29 PM 

♦last edit by Jarvis Juno 13, 1979 9:55 AM 

‘Initialization for XUTFP 

SETTASKfuiUTFPTASK]; 

ONPAG E[DispiayInitPage]; 


displaylnit: uiHEADDR (ZERO), AT[0 i spl ay In i tl.oc]; 

OUTPLH[uiliF.ADDR. 11 iCREG]; ‘CLEAR THE CONTROL REGISTER 

uiHEPAT horO ; * LOAD THE HORIZONTAL EVENT RAM 
uiHEPAT «- (niHr.PAT)or(horOp), CALL.[uil.OADHE]; 

u i HE PAT <• (her 1) ; 

11 i HE PAT (uiHEPAT) or (horlp), CALL[u iLOADHE] ; 

11 i IIEPAT <- (her2) ; 

uiHEPAT <- (uiHEPAT) or (lierZp), CAI.l.[u i LOADIIE]; 


uiHEPAT <- (liei’3) ; 

uiHEPAT <- (u iHEPAT) or (hor3p), CALI [uiLOAOHF]; 
uiHEPAT (her<1) ; 

uiHEPAT <- (uiHEPAT) or (her4p), CALL[u iLOADHE]; 


uiHEPAT <• (horO) ; 

uiHEPAT «- (uiHEPAT) or (Iier5p), CALI[uiLOADHE]; 


uiHEPAT <- (her6) ; 

uiHEPAT *- (uiHEPAT) or (MorGp), CALLfuiLOADHE]; 

UiHEPAT »- ( ho r7 ) ; 

uiHEPAT < (uiHEPAT) or (hor7p), CALL[u i LOADIIE] ; 
uiHEPAT (lierC) ; 

uiHEPAT « (uiHEPAT) or (horflp), C ALL[u i LOADIIE] ; 
uiHEPAT <- ( her9 ) ; 

uiHEPAT <- (uiHEPAT) or (her9p), CALL[ui LOADIIE]; 

uiHE LOADED: 

uiBASE <- zei’o; 

uiliASEl zero ; 

uil ENESPERFIELD <- Ipflo ; 

ui LINESPERFI ELD < (11 i LI NESPERFIELD) or (lpflri) ; 

‘set keyboard words to -1 (key up) 
uiTEMP <- 177000C; 

T <- uiTEMP <- (uiTEMP) or (30C); » 177030 

uiCCO <- (ZERO) 1; 

uiCCl <- ( ZERO) -1; 

uiCC2 <- ( ZERO) -1; 

uiCC3 «• ( ZERO) -1; 

PSTORE4[ 11 i BASE, uiCCO] ; * mouse, keyset, etc . 

T < uiTEMP <- (uiTEMP) 1 (4c) ; * 177034 

PSTORE4[u1BASE,uiCCO]; * keyboard[0:3]. 

r <- uiTEMP «- (u i TEMP)+(4c); * 177040 

PST0RE4[uiBASF., uiCCO]; * ke.yboard[4: 7] . 

lliCRWORD <• (22 0C) ; ‘ALLOW WAKEIJPS, COIAG* 0 
OUTPUTfuiCRWORD,uiCREG]; ‘ALLOW WAKEUPS 
uiTEMP ♦- 377C ; 

OUTPUT[ui TEMP, 11 illTAB]; ‘load the HTAB counter with 377 
nil MSG «- (ZERO); 

uiMPSTATUS <■ T *- ZERO, cal 1[uiFINHE]; 

uiLINK *- T, loadpage[uiutfppage]; ‘First wakoup comos here 
uiBUFPTR <-T«- 37 7C ,GOTOp[uiCSDONE] ; 

‘SUBROUTINE TO LOAD THE HORIZONTAL EVCNT RAM 
‘(ADDRESSED VIA CXREG) 
uiLOADHE: T <- LDFfuillEPAT, 1,11] ; 

iiiHECNT <- (T); 

uillEI 0ADL00P : uiHECNT <- (uiHECNT)-1; 

G0T0[ ui FINHE , AL.U<0], usectask; 

OUTPUT[uillEADDR, uiCXREG]; 
uiHEADDR * (uiHEADDR) + l; 

OUTPUT[uiHEPAT, uillEBUF] , goto[uillF.LOADLOOP] ; 
uiFINHE: RETURN; 


ond[uiinit]; 
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insGrt[dOTaiig]; 

NOMIDASINIT;LAMOVERS10M;MULTDID; 
inse rtfGloba'lDof s ] ; 

t it! cl key |; 

0 Koylloard Translation Table from DO's to ALTO's 


me)Tbyte , DA f A [ (l.ll[ LSHI FT [ //1, 10] , 7/2 ] , RH[ LSHIFT[//3,10] ,7/4], 
liSF.L20[pp[//l,7/2,773,7/4]] 

,at[bytcloc])] 

SET[byteloc , ADD[by teloc,1]]]; 

i«@[pp, set[ppx , xorfi[l, //I, uz , 7/3, //4]]set[ppx , xor®[ppx, rslri f t [ppx , 4]]] 
set[ppx, xor0[ppx, rshl rt[ppx, 2]]]set[ppx, xor9[ppx, rslri f t[ppx, 1]]] 
set [ppx , aiui©[l, ppx]]ppx]; 

set[byteloc,keytable]; 

by te[L77,177, 177,1771; *00 

byte[ 177,177,177,177]; 
by to[ 17 7,177,177,17/]; 
by to[177,177,177, 1771; 


byte[5,125,115,105); 
byte[75,171,05,163 |; 
byte[172,160,55,45]; 
byto[35,25,10,177]; 


*20: Dl, T10, T9, T8. 

* T7, nw, re, fu. 

* FL3, TF, T5, T4. 

* T3, T2, Tl, . 


by to[151,177, 153,150]; 
byte[152,14,177,24]; 
by to[34,44,54 , 177 j; 
byto[ 17 7,64,1 7 7,177]; 


*40: |, , (swat), \. 

* <-, ii3, , L10. 

* 1.7, 1.4, LI. 

* , A9. 


byte)'152,74,173,161]; 
Li.ytef 177, 173,113, 104]; 
byte[ 114,124,134,162]; 
byte[ 42 ,177,177,17 7] ; 


*00: RIO, FR5, FR4. 

* , TR5, (space), LI1. 

* L8, LG, L2, DLL. 

* CTL. 


b.yte[ 177 , 177,143, 140]; 
byte[122,131,73,63]; 
byte[ 72 , 70,52,101 ]; 
byte[102,177,42,177]; 

by te[ 142,154 , .141, 132]; 
byle[121,110,62,43]; 
by te[23,3 2,50,41]; 
by te[51,17 7, 103,1 12]; 

byte[171,151,123,130]; 
byte[111,71,60,33]; 
by to[13, 3,30,21]; 
byte[31,22,1/7,174]; 


*100:, , shift-R, /. 

* ., (comma), m, n. 

* b , v, c , x . 

* z, , (ctl), . 

*120: return, 40, (quote), :. 

* 1, k, j, h. 

* 9, f, tl, s. 

* a, , lock, shift-L. 

*140: BW, ] , [, p. 

* o, i, u, y. 

* t, r, o, w, 

* q, tab, , D2. 


by Le[170,133,120, 100]; 
byte[Gl,53,40,20]; 
byte[ 0, 10, 1, tl]; 
byte[ 2, 12,177,177]; 


*160: bs, -, 0 

* 9, 8, 7, 6. 

* 5, 4, 3, 2. 

* 1, esc. 


erul[ key ]; 
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insert[dO I ang]; 

NOMIDAS1MIT;i.ANGVERSION;MULTDIQ; 
insert[GlobaIDefs]; 
insert[LFDofs ]; 

I ITI.Ef extended-address-UITASK] ; 

* Last modified by Chang, September 10, 1979 4:56 PM, move Timer's Regs'; 

* modif ied by Johnsson, April 7, 1979 12:29 PM; 

* modified by Jarvis, June 27, 1979 4:00 PM 

SETTASK[uiUTFPTASK]; 

0NPAGE[u1UTFPPAGE]; 

SET[u iPART,ADD[uiUTFPBASEADDR,20‘|]; "backchannol message dispatch 
SET[u iSHCUR,ADD[uiUTFPBASEADDR,GO]]; ‘cursor shift 

* uiMPSTATUS holds keyboard process state information 

* The process intializes the count field with the negative of the number of 

* bits in the field. As each bit comes in, the process increments the count. 

* When the count reaches zero, the carry out of the count increments tho 

* state. The field sizes and their associated state are: 


* 

state 

s i ze 



* 

0 


idle 


* 

1 

4 

x mouse delta, twos complement 


* 

2 

4 

y mouse delta 


* 

3 

3 

mouse buttons (and status are lumped together in 

single field) 

* 


4 

status (video, VS, power supply normal, key data 

fo 1 lows) 

* 

4 

10 

key data (7 bits of key, 1 bit of up/down) 


4 . 

5 


post key data 


me 

[keyStart, 

74]; * initial state, count=-4, stato-l 



* The mouse resolves 200 pixels/inch. 35 iuches/sec is the maximum speed 

* required for tracking the mouse. We update the mouse position once every 

* field, 80 times a second. Therefore tracking the mouse at maximum velocity 

* requires a field large enough hold 88 counts. Adding 1 bit for sign 

* mandates an 8 bit field for x and another 8 bit field for y. Mote that this 

* uses / bit Fields. 


* check for message from key board 

* calling sequence: lu<- uiMPSTATUS, cal I[keyCheck]; 

* does not task!!!! 

keyCheck: uiMPSTATUS*- (u iMPSTATUS) +1, go to[ koyCon t inue , alu//0j; 
skip[IO at ten], use Cfask; *stale = l, count = -4; 

return, uiMPSTATUS*- 0C; * reset to state-count = 0 

return, uiMPSTATUS*- keyStart; 


keyContinue: uiTMSG*- rsh[uiTMSG, 1], skipfno atten]; 
uiTMSG*- (uiTMSG) OR (100000C); 

1 Li*- 1 df[uiMPSTATUS, 13, 5]; 
skip[alu=0], use CTask; 

return; * more bits to go in this field 


have accumulated all bits for this field, dispatch on state 


d i spatch[uiMPSl ATUS, 10, 3]; 
d i s p| . +1] ; ‘finish this field 

uiMPSTATUS*- (uiMPSTATUS) or (34c), goto[keyXY], 
uiMPSTATUS*- (uiMPSTATUS) or (31c), goto[keyXY], 
uiMPSTATUS*- (uiMPSTATUS) or (30c), golofkoyBS], 


t<- rsh[u i TMSG , 10 


go to[ koySt roke ], a t[ u i PART , 6] 


"negative count for next field 
a L[ ili PART, 2 | 
a t [ il i PART , 3] 
at[uiPART, 4 | 


"buttons/status 
"key 
" ro s e t 


keyXY: uiTMSG*- rsh[uiTMSG, 14 ), skip[ r> = 0]; 

uiTMSG*- (uiTMSG) OR (170C); "negative number, extend sign 
lli<- (uiMPSTATUS) AND (40C); "kltidgy test for x or y 
t<- 1 sh[uiTMSG , 11], skip[ALU=0] ; 

t<- uiTMSG; "this is y 
uiMOUSFDFL.XY*- (uiMOUSEDF.LXY ) f-t; 

uiMOUSF.Dli.LXY*- (uiMOUSLDELXY) AND NOT (400C), go to[ keyNoTaskF i oi dDono] ; 


kcyliS: t<- rsh[uiTMSG, 7); 
ui BUT TONS*- t; 

lu<- uiTMSG, use C Task, dbl goto[key F iel dDone, keyldle, r<0]; 


keystroke: uiXMSG*- (lsh[uiXMSG, 10]) or t; 
keyldle: uiMPSTATUS*- 0C; 
keyNoTaskTieIdDone: use CTask; 
keyF i el dDono ; uiTMSG*- 0c, return; 
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"'Do horizontal processing. Wo know that tho controller needs data. 
xpreVSO: lu<- uiMPSTATUS, ca11[keyCheck]; 

proVSO: T«- 2C, cal 1 [uiCheckCursor] ; 

uIVSO: OUTPUT[uiMBUrP TR, u iBPREG] ; *p re computed uiNBUFPTR to hardware. 

T (in DBA) AND NOT (17C); 
uiOWA <- T; 

‘Start the first IOFf.TCH 

UiDWT: IOFETCH lG[lii BASE, u iDBADDR]; 

‘Calculate the read buffer pointer, tho count, and next line's,DBA 
•in the shadow of the first IOFETCH (If there is to be more than one). 

T <- uiBUFPTR <- 377C ; 

u i NBUFPTR «- (uiNBUFPTR) - (3 5 7 C); ‘From here on, uiNBUFPTR is used 
•for the count (-(MWHDS * (ADDRESS and 17 B))) 

T*-RHMASK[u 1NWRDS]; 

uiBUFPTR *- (uiBUFPTR)-(T); * 371 - number of words for tho display 
uiBUFPTR <- (uiBUFPTR) OR (100000C); ‘Wakeup disable bit 
T* (RIIMASK[uiNWRDS])-<(T); * T <- 2»NWRDS 

ii i Dll A <-( ii i DBA) i (1) ; •uiDBA is now set up for tho next scan line 
uiDWA<-!<-( u iDWA) i-( 20C), CALL[uiDWTl] ; 

•loop for second through Nth IOFETCH. 
u iDWTl: uiNBUFPTR*- (u iNBUFPTR )■*( 20C) .GOTOfu iBUI : D2 , R>=0]; 

IOFETCH 16[ui BASE, u iDBADDR], GOTO[u iBUI D2X , ALU>= 0'|; 
uiDWA<-T‘-( u iDWA) *( 20C ). RETURN ; 

U-IBUFD2: uiVSCOUMT <• ( u iVSCOUN T) -1, DIHGOTO[uiCNDF IELO , uiCONT, IKO]; ‘check for field done 
ui BUFD2 X: u iVSCOUN I < ( ii i VSCOUNT) -1, l)B l.G OTO [ ti i END FIELD , uiCONT, U< 0 j ; 
uiCONT: u iSLC<-( uiSLC) - l,DULGOTO{ u iDCBDONE , u iMDCB2 , R< 0 |; 


‘Calculate the next line's uiMBUFPTR 
•in tho shadow of the last TOFE1CII16 
uiMDCB2 : lliNBUiPTR <- 3 7 7C; 

i< I 1)1 | ii i 1)11 A, 14,4]; 
uiNBUFPTR < (uiNBUFPTR)-(T); 
r<-RIIMASK[u i NWRDS] ; 
uiNBUFPTR <- ( u i NBUFPTR) - (T) ; 

OUlPUI[uiBUFPTR,uiBPREG], goto[xpreVSO]; 

•Tho DCB is finished. 

uiDCBDONE: lu< uiMPSTATUS, call[keyCheck]; 

T<-(u iI INK) ; 

u i BASE 1 <- OC, GOTO[uiGetNcxtDCB , ALU//0 J; 

•The DCB chain is exhausted. 

OUTPUTfuiBUFPTR,uiBPREG]; •Send read BUFPTR to the hardware 
T *■ 2C, cal I [uiCheckCursor ]; ‘"does TASK return 
goto[uiVST]; 


ii iCotNoxtDCB: 

uiBASE <■ T; *T contains LINK. Sot base register to point to next DCB 
OUTPUT[uiBUFPTR,uiBPREG]; ‘Send read BUFPTR to the hardware 
uiNBUFPTR *- 3/7C; ‘Iilit for later 
nop;‘two instr after output 
PIETCII2 [ui BASF , u iDBA , 2 ] ; ‘Fetch DBA , SLC 
uiBUFPTR <- 3 7 7 C ; ‘Iilit for later 
‘Chock for long pointer addressing 

PI ETCH2[uiBASE,uiLINK,0]; ‘Fetch Fink,NWRDS 
LIJ< ui SLC , goto[u il.ong , R<0]; 

•Short Pointer 

T <- uiDBA; 

uiBASE <- T,goto[uiEvenOdd]; 


•long Pointer 
uiLong: 

PFETCH2[uiBASE,uiBASE,4]; ‘fetch directly into the base register 
uiSLC «- (uiSLC) AND NOT (100000C); ‘clear the sign bit 


‘Bias uiDCB.SLC by -2. Note that if uiDCB.SLC = 0 OR 1, at least one 
‘scan line will be displayed. 

uiEvenOdd : LU *• LDF[uiCRWORD,17,1]; ‘Check EvenFiold 

UiSLC <- (liiSLC) - (2C) ,G0T0[u iDBAOK, ALU//0] ; 

uiDBABAD: T*- RHMASK[uiNWRDS] ; 

uiBASE <- ( uiBASE) I(T); 

uiDBAOK: T*-LDF[uiBASE, 14,4] ; ‘Set up NBUFPTR for the next scan 
uiNBUFPTR *- (uiNBUFPTR) -(T) ; * u i NBUFPTR *- 377C earlier 
T*-RIIMASK[uiNWRDS] : 
ui NBUFPTR*-(uiNBUFPTR) -(T); 

‘Now fix up the base register so that it is hex aligned and DBA contains the residue 

T *- (uiBASE) and (17C); 
uiDBA <- T; 

uiBASE *■ (uiBASE) and not (17C); 

‘fix up the high half of the base register 
T *• 1 sh[uiBASE 1,10]; 
uiBASEl <- (RHMASK[uiBASEl])+(T)+l; 

T<- 2C, call[uiCheckCursor]-, ‘returns to VS2 

‘We have just picked up a new DCB. We must output HTA8, 

‘then go to normal state 0 processing. 
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11 i VS 2 : T »■ LDF[u1NWRDS,2,6]; ‘calculate I IT AB 

LU«-l.DF[uiNWRDS, 1,1]; ‘black background bit 

uiBUFPTH «- (uiBUFPTR) - (T) -1 ,GOTO[ .+2 , ALU//0]; *uiBUFPTR * 37/C oarl lor 
uiBUFPTR <- (uiBUFPTR) AND NOT (200C); 

OUTPUT [ 11 i BUFPTR, u 1H1 AO ] , goto [ 11 i VSO] ; ‘send it 


U1F.NDFIELD: u iBASEl <- OC ; 

uiCRWORO 1 (ulCRWORD) xor (3C), goto[uiFDl[j; 
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*Wo have displayed t.ho entire chain and the field Is not done. 
‘Wait for ond of field. 

xpreVSl: T<- 2C, call[uiChockCursor]; 

prcVSl: cal 1 [lliWAKEOFF]; 

uiVSl: 111*- uIMPSTATUS, call [keyCheck]; 

uiVSCOUNT *■ (u iVSCOUNT) -1 , G0T0[u iFIELDDOfJE , R<0]; 
goto l'xpreVSl]; 


Turn off wakoallow and return 

uiWAKEOFF: ulCRWORD <- (uiCRWORD) AND MOT (200C); ‘AllowWake 0 

OUTPUTfuiC RWORD,uiC R EG]; 
ulCRWORD < (tiiCRWORD) OR (200C); 
uiBUFPTR <- 377C; ‘set up for next run. 

OUTPUTfuiCRWORD,uiCREG], goto[Outputwait]; 

‘Check for cursor visible. Enter with T=2, 
uiChockCursor: 

uiCY*- (uiCY)-(T), GOTOfuiCURRET, R>=0]; 
uiCX (uiCX)t(lOOOC); 

LU <-■ LDFf 11 iCX, 3,1] ; 

GOTO[uiSENOCX,ALU-0]; 

uiCX <• OC; ‘finished displaying the cursor 

uiCY <- 10000C; 
uiSENOCX: 

OUTPUT[uiCX,uiCXREG]; 

Outputwait: nop; 
uiCURREi: return; 

"The field is finished. Make Vsync pulse, 
uiFIEEDDONE: 

uiCRUORD <- (uiCRWORD) XOR (3C); ‘complement field, set PreVS. 
u i EDI: uiBUFPTR <- 200C; 

‘send black background so that lisync won't bo screwed up 

OUTPUT[ii1BllFI'TR,uillTAB] , ca 1 1 [uiWAKEOFF] ; ‘returns to uiVS3 
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*We are in the first scan line of a vertical sync pulse. 

♦Post the mouse COORDINATES to core. 
llIVSS : uiBASE OC ; 

T<- (uiBUFPTR) *•( 25C); *42Ab AND 426b = Mouse x and y. 
PFF.TCH2[u1BASE,uiDtiA'|; ‘uiDBA and uiSI-C are used as temps. 
lu<- uiMPSTATUS, cal l[ko.yChock]; 

uiMOUSEDF.LXY <- LCY[uiMOUSEDELXY, 11],DBLGOTO[uiSEMI, uiNSEM1, lt<0 j; 

uiSEMl: T <- 177C,GOTO[u1SEMlFIN]; 
uiNSEM1: T <- (ZERO)-l; 

uiSEMIFIN: T<- ( LDF[u1M0USEDELXY, 7,7] ) XfiOR (T); 
uiDBA <- (u1DBA) + (T): 

T< ui MOUSE DE LX Y*-LDF[ uiMOUSEDELXY ,0,7] ,DBLG0T0[u i$F.M2 , uiNSEM2 , R<0] ; 

illSF.M2: T ♦- (uiMOUSEDELXY) XN0I1 (177C) ; 
u i HSEM2 : uiSLC <- (uiSLC)i(T); 

T‘- (uiBUFPTR) + (25C); 

PST0RE2|uiBASE,uiDBA]; ‘Restore coordinates 
uiMOUSEDELXY <- (ZERO), call[uiWAXEOFF]; ‘returns to uiVS4 
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‘Post, the mouse BUTTONS 

uiVS4: 11 iDASF.«~ 177000C; ‘NOTE modification of uiBASE 
uiBASl>(uiBASE)+(30C); ‘fetch 177030 

PKErCHl[u1DASE,uiQFEMP,0]; *u iQTEMP overlays LINK, NURDS, DBA, SLC. 
In*- uiMPSTATUS, ca 1 I [koyCheck] ; 

‘convert UTfP mouse button order into ALIO order 

*0n tho UTFP, the sequence for the buttons (BUTT0MS[13:16j) is right, 
‘middle,ioft, and l's mean buttons depressed. 

*0n the ALTO, 177030[16:17] correspond to 1 eft,right,middle, and l's 
‘in memory mean button NOT depressed. 

t*- 1 df[uiBUTTONS, 13,1]; ‘right button 
liiTEMP <- t; 

t <- 1 df [uiBUTTONS, 14, f]; ‘middle button 
uiTEMP <- (1 sh[uiTEMP, 1 ]) or (t); 
t «- (uiBUTTONS) and (4C): ‘left button 
t <- (u 1 TEMP) or (t); 

11 iQTEMP <• (u IQTEMP) or ( 7C) ; 
t *- uiQTEMP <- (11 iQTEMP) xor (t); 

* ignore uiQTEMPl and u IQTEMPZ 
II1QTEMP3 <- t; 

nop; * wait for write of register 

PSTORET[u iBASE, 11 iQTEMP , 0] ; 

uiBASE «- ZERO; ‘reset base register 


‘Fetch new deb chain header and interrupt mask. 

T * (11 i BUFPTR) + (21C); ‘T<-420, Since u iBUFPT R = 3 7/. 

PFE fCII2[lliBASE, ui LINK]; ‘Get new deb header from 420, intinask from 421. 


‘check for realtime clock update 
‘save STKP 

* uil F.MP *- 325C; ‘Point to RTCLOW 

ui TEMP <- 305C ; ‘Point to RTCL0W 
T*- nSTKP; 

STKP uiTEMP, uiTEMP «- T, HoRog ILockOK; 

uiTEMP < (uiTEMP) XOR (377C); ‘STKP read inverted 

STACK <-(STACK) AND NOT ( 100000C),COTO[uiNORTCOV, R>-0] ; 

‘must update RTC 

uiTEMP1«-400C; 

T«-(uiTEMPI) i(30C) ; 

PFE TCIIl [11 iBASE , ui TEMPI]; 
ui TEMPI <- (uiTEMP!) t 1; 

PSTORF.l[u iBASE , ui TEMPI] ; 

‘cause vertical field interrupt 
uiNORTCOV: STKP <- uiTEMP; 

loadpage[0]; 

T «- uiNWRDS, caIIp[DoInt]; ‘interrupt mask fetched from 421 above 
uiNOTMR: call[uiWAKEOFF]; ‘Returns to uiVS5 
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“Post the keyboard 

lliVS5: III <- I.HMASK[ uiXMSG], call[uiKPOST]; « 

lu <- l IIMASKf uiXMSG], callfuiKPOSTj; ‘do it again For other byte 
lo<- uiMPSTATUS, call [keyClieck] ; 
uiBASE «• ZERO, G0T0[proVSG]; 

uiKPOST: 

uiTEMP <■ KeyTabloll, goto[ , 1 2 , alu/70] ; *if no data, return right away 
uiXMSG «■ IshfuiXMSG,10],return; “shift to other keyboard char 

uiTEMP <- (uiTEMP) or (KeyTahlcl.); 

t <• I df[u i XMSG , 1,5]; “Get word number (4 bytes per word) 
uiTEMP *• (uiTEMP) > (T); *Form final address 
t «- I df [uiXMSG , 6,1] ; “sot h2 to high/ low word 
APC&APCTASK <- uiTEMP; ‘Address to read in Control Store 
READCS; “get the word 

t *• CSDATA, AT[u iUTFPBASEADOR, 300]; ‘must bo at an even location for READCS 
uiDBA <- t; 

lu <- I DF[siiXMSG ,7,1.]; *'low or high byte 
go to[ . "2 , al uf/O] , uiBASE «- 177000C; 
uiDBA <- RSIIfuiDBA, 10]; “Meed upper byte 
uiBASE «- (uiBASE) "(34C) ; “uillASE «- 177034C 
T<-( I.DE[ u iDBA, 15,3]); ‘Get word number 

PFETC.Mi[u (BASE, uiNWRDS]; “uiNWRDS is a temp • fetch Alto kbd word 

uiDBA <- I.DF[uiDUA,ll,4]; ‘Get bit number 

uiBASE <• (uiBASE) 1 (T) ; ‘fix base register for store 

uiTEMP <• T <-• 100000C; “Do the function uiTEMP 100000 rshift uiDBA 

uiDBA *■ RSII[ UiDBA, 1] . goto[ . +2 , REVEN] ; '"test bit 15 
uiTEMP <■ T RSI I [ ll i TEMP , 1] ; ’"shift 1 

uiDBA RSII[ uiDBA, 1] , gotof - "2 , REVEN]; ‘test bit 14 
UiTEMP <- r <• RSII[u iTFMP, 2]; '"shift 2 

UiDBA < RSHfuiDBA, 1] , go to[ . +2 , REVEN ] ; '"test bit 13 
uiTEMP *- I < RSII[u iTEMP, 4]; "shift 4 

uiDBA <• RSlIfu iDBA , 1] , goto[.>2,REVEN]; ‘"tost bit 12 
uiTEMP - I <- RSIl[ui EEMP , 10] ; “shift 8 


uiKDD: “test for key down (0) or up (1) 

uiXMSG <- IslifuiXMSG, 10], DBLGOTO[ 11 i KDOWN , ui KUP, r> = 0]; 

uiKDOWN: uiNWRDS «- (uiNWRDS) AND NOT (T), GOTO[uiKSTORE]; “key down, clear bit 

uiKUP: uiNWRDS <• (uiNWRDS) OR (I); “key up, set bit 

uiKSTORE: goto[uiCURRET],PSTORE1[uiBASE,uiNWRDS,0]; "store word 

proVSG: uiBUFPTR «- 377C. cal 1 [11 iWAKEOfF]; “returns to uiVS6 
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"Set up the cursor. 

•Get cursor coordinates from 426b (X), and 427b (Y). 
t.iiVS6: T *- (uiUUrPTR) i-(2/C ); "uiBUFPTR = 377 on entry. 

PFETCII2|'uiBASE,uiCX]; "Cursor X,Y coordinates 
lu<- uiMPSTATUS, call [keyCheck] ; 

U1CY «- (uiCY)H: 

•The cursor X counter is loaded by HSF from CXREG. It is 
•clocked by [(FdgeCloek and SelCursM) er (NClk and (HSF or VS'))]. 

"The cursor hardware counts the X offset from end of horizontal synch. We 

"must, fudge for interval between horizontal synch and blank. 

11 iCX«- (u iCX)+( 40C); 

•The cursor buffer is divided into 8 segments with 6 nibbles in a segment. 

•The cursor itself is 16 bits (4 nibbles) wide but a segment must have 5 

•nibbles to allow for a cursor not aligned on a nibble boundary. The sixth 
•nibble must be all zero. The harware ors this nibble with all displayed 
•nibbles following tho cursor. Loading CXRFG with a 6 disables tbo cursor 
•by oring this zero nibble from tho cursor with display data all across tho 
•lino. 

"When tho cursor is visible, -X is loaded Into tho CXRFG in tho 
"scan line preceding the cursor, and this value is loaded into 
"the cursor counter by IIS. When V3=0, tho cursor counter is 
•incremented by NClk, and when it becomes 0, the next 6 nibbles are 
"sent to tbo display. 

•Here, we want the cursor counter to address the cursor buffer so 

"that we can load it one segment at time. The cursor segment is CXREG[4:6]. 

"Wo start with segment 1, CXRFG*- 1000C, and during each of the 

"next 8 scan line times we will send 6 bytes of cursor data followed 

"by a sixth nibble of zero to the buffer, then increment the segment value in 

"uiCXREG. 

*11 iVSC.OUNT is used to hold the value to bo loaded into uiCXRF.G. 
tiiVSCOUNT <- 1000C; "Start load at segment :l. 

•The even scan lines of the cursor will be displayed if CY is even 
"and the field is even, or if CY is odd and tho field is odd. 

"Otherwise, the odd scan lines will be displayed. 

liiBUFPTR <- (uiBUFPTR) + (32C); •uiBUFPTR <- 431b 

l< I. DFfuiCRWORD , 17 ,1 |; "adjust offset according to evon/odd field 
l<- (EDI [uiCY, 17,1 |) XOR (T); 

1<- ( u iBUFPTR) + T ; "starts at either 431b or 432b 

uiDBA <- T, gotofu i MORFCSETIJP]; 
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♦Load one segment of the cursor memory (5 nibbles plus one zero nibble). 
"The address was set up during the previous scan lino. 


U i MORECSETUP: OUTPUTfuiVSCOUNT, uiCXREG]. cal 1[ulWAKEOFF]; 

T<- uiDEIA; ‘Pointer to cursor segment 
PFETCUlfuiBASE, uiTEMP |; "Fetch segment 
lu«- uiMPSTATUS, cal 1 fkoyCheck] ; 

uiDBA<- (u1DBA)+(2C); "Increment pointer (by 2 duo to Interlace) 
DISPATCHfu iCX, 16, 2"]; "Doteniiine amount to shift word. 

DISP[. + lj, 11 i TEMP 1*- 17C; 

l'<- 'oc , ' GOTOfuiSIICDONE'l, ATfu iSIICUR.O] ; 

T* LSHtuiTEMP, 3], ATfulSHCUR. 1]; 

uiTEMP*- RSIIfuiTEMP, l '|, GOTOfulSIICDONE]; 

T<-LSIIf uiTEMP , 2 |, ATfu i SIICUR, 2] ; 

nilEMP<- RSHL'ulTEMP, 2], GOTOfuiSIICDONF.]; 

T«- I SI I [ u i TEMP , l'|, AT[uiSHCUR,3]; 

uiTEMP"- RSIIfuiTEMP , 31, G()T0[u i SIICDONE]; 


U iSMC00HE : ulTEMPl*- (ui'FEMPl) AND (T); 
uiCMT<• 2C ; 


uiSENDCLOOP: T<- LDFfuiTEMP, 0, 4]; "Loop for first 4 bytes 

uiNWRDS*- T; "uiNWRDS is a temporary, not used during VS. 

OUTPUTfuiNWRDS, uiCURSM]; 

uiCNT<- (uiCNT)-l, skip(R<0 |; 

liiTEMP<- ESIlf uiTEMP , 4], GOTOfuiSENDCLOOP] ; 

OUTPUTfuiTEMP 1, uiCURSM]; "Send Oth nibble. 

EU< LDF[uiVSCOUNT, 3, ij; 

OUTPUTfu i TEMP, uiCURSM ], sk ipfA1U/70]; *0 for 6th byte 
UiVSCOUNT*- (uiVSCOUNT) i-(lOOOC) , GOTOfuiMORECSETUP]; "next segment 


T*- RSIIfuiCX, 21; "cursor loaded, CX counts nibbles, not bits 
uiCX* (ZERO) -T; "And it is negated. 

I U»- uiCRWORD, skipfR ODD]; "Test field 
uiCY* (uiCY)-(lC); "oven field 
ulCSDONE; uiVSCOUNT*- 6C; "initialization code jumps in here 

OUTPUT[uiVSCOUNT, uiCXREG], callfuiWAKEOFF]; "disable cursor 


"llow do I love thoo? 
"Let me count the ways. 


"This is the best accounting that I can mannago for what goes on in the 
"horizontal scans during vertical retrace 


*uiVS3 mousoXY 1 
*uiVS4 buttons, RTC, field wakeup 1 
*uiVS5 keyboard 1 
*uivs6 cursor setup 1 
* load cursor 8 


subtotal 


12 


"The UTl.F gives 404 or 405 visible lines for even or odd fields respectively 
"(see uiEVX and uiODX). In order achieve an 875 line scan tho UTIT must idle 
*21 lines. 

uiVSCOUNT*- 25C; 

uivsloop: dblgotof.*T, uiVSIO, alu//0]; 

lu*- uiMPSTATUS, cal 1 f keyCheck] ; 
cal 1fuiWAKEOFF]; 

uiVSCOUNT*- ( u iVSCOUNT)-1, gotof u ivsloop] ; 
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*Wo are in the last scan Vino of a vertical sync pulse. 
*Sot up uiVSCOIJNT for the next field, 
mil.INK has rv420, fetched during VS4. 

uiVSIO: uiCRW0RD<- (ulCRWORD) AND NOT (2C); *ProVS «- 0 
011 1 PU 1 [ u i C RWORD, u iC REG ] ; 
u iBUFPTR<- (uiilUFP'l R) OR ( 100000C) ; 

I.U*- LDF[uiCRV/ORD, 17, 1"|; 

T<- uiLINESPFRFIELD, Dili GOTOfli i EVX, uiODX, ALU=0]; 
uiEVX: uiVSCOUNT*- T, GOTO[uiDCBDONE]; 
uiODX: u iVSCOUNT'- (ZERO) + (T) H , GOTO[u iDCBDONE]: 


end[uitask]; 
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* MicroD 8.7 (OS 16) of June 8, 1979 

* Last edited by Chang, September 12, 1979 10:52 6M 

* edited by Chang, July 6, 1979 6:12 PM 

* edited by Johnssori, June 18, 1979 6:24 PM 

rNSERr[OccupiedDefs]; 

TITLEfMesalOccupied]; 

* Locations reserved on page 0 

IMRESERVEfO, 0, 2]; * buffer trap and fault 

IMRESERVEfO, 100, 56]; 

* IMRESERVEfO, 166, 10]; * PNTP 

IMRESERVEfO, 166, 6]; 

* IMRESERVEfO, 173, 4]; * PNIP 

lMRESERVF.fi0, 177, 74]; 

* IMRESERVEfO, 300, 32]; * LL1J 

IMRESERVEfO, 336, 23]; 

IMRESERVEfO, 361, 17]; 

* Locations reserved on page 1 

* XMRESERVEf1, 100, 142]; * overlayed linkage location 

* IMRESERVEfl, 273, 1 ]; * overlayed linkage location 

* Locations reserved on page 2 

IMRESERVEf 2, 0, 100]; * Reserved for RS232 

* IMRESERVEf2, 100, 172]; * overlayable init code 

IMRESERVEf2, 310, 60]; * Reserved for RS232 

* IMRESERVEf2, 372, 1]; * ovorlayabie init code 

* IMRESERVEf2, 3/4, 1]; * ovorlayabie init code 

* IMRESERVEf2, 376, 1]; * ovorlayabie init code 

* Locations reserved on page 3 

IMRESERVEf3, 0, 367]; 

IMRESERVEf3, 370, 10]; 

* Locations reserved on page 7 

* IMRF.SERVEf7, 27, 1]; * overlayed linkage location 

* IMRESERVEf 7, 76, l'J; * overlayed linkage location 

* Locations reserved on page 10B 

IMRESERVEf10, 0, 363]; 

* locations reserved on page 12B 

IMRESERVEf 12 ,. 0, 361]; 

* Locations reserved on page 14B 

IMRESERVEf14, 0, 137]; 

* Locations reserved on page 16B 

* IMRESERVEf15, 300, 1]; * overlayed linkage location 

* Locations reserved on page 16B 

* IMRESERVEf16, 0, 370]; * initialization 

* Locations reserved on page 17B 

IMRESERVEf17, 0, 140]; * kernel 

IMRESERVEfl/, 0, 40]; * Key Translation Table 


END; 
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* MicroO 8.6 (OS 16) of April 27, 1979 

* at 18-Jun-79 16:08:59 

* Last edited by Chang, July 16, 1979 3:16 l ; M 

* edited by Jolmsson,' June 18, 1979 4:27 PM 

INS£RT[Occup iedDefs]; 

TITLE[Mesa20ccupied]; 

* Locations reserved on page 0 

£MRESERVE[0, 0, 2'|; * buffer trap and fault 

IMRESERVE[0, 2, 12]; 

* ' IMRESERVE[0, 156, 10]; « PNIP 

* IMRESERVE[0, 173, 4']; * PNIP 

* IMRESERVE[0, 300, 32]; * LRJ 

* Locations reserved on page 2 

* IMRESERVE[2, 100, 63]; 

* Locations reserved on page 4 

IMRESERVE[4, 0, 340]; 

IMRESERVE[4, 341, l]; 

IMRESERVEf 4, 345, 1]; 

IMRESERVE[4, 351, 1] ; 

IMRESERVE[4, 355, 1]; 

TMRE5ERVF.[4, 361, l]; 

IMRESERVL[ 4, 365, 1]; 

IMRESERVE[4, 371, 1]; 

IMRF.SERVE[4, 375, 1]; 
l'MRESERVE[4, 377, 1]; 

* Locations reserved on page 5 

IMRES£RVE[5, 0, 400]; 

* Locations reserved on page 6 

IMRF.SERVE[6, 0, 362]; 

IMRESERVE[6, 365, l]; 

IMRESERVE[6, 371, 1]; 

IMRESERVE[6, 375, 1]; 

IMRESERVEf 6, 377 , 1]; 

* Locations reserved on page 7 

* IMRESERVEf 7, 0, 400]; 

* Locations reserved on page 1IB 

* IMRESERVE[11, 0, 366]; 

* Locations reserved on page 13B 

IMRESERVE[13, 0, 400]; 

* Locations reserved on page 14(1 

IMRESERVE(14, 137, 241]; 

* Locations reserved on page 156 

* IMRESERVE[15, 0, 374]; 

* IMRESERVE[15, 377, 1]; 

* Locations reserved on page 166 

* IMRE5ERVE[16, 0, 35/]; 

* Locations reserved on page 1711 

IMRESERVE[17, 0, 140]; 

END; 
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insertfdO'lang]; 

NOM1DASINIT; I..AMGVERSION; MULTDID ; 

I ti s u r t [ G 1 0 b a 1 De f s ]; 

I II LE[in j ] ; 

* MESA JUMP AMD ARITHMETIC INSTRUCTIONS 

* last modified by Johnsson, Juno 11, 1979 11:27 AM 

* last modified by Sandman, May 9, 1979 ?:24 PM 

* last modified by Sandman, March 13, 19/9 6:30 PM 


% 

This code assumes that PCB,,PCBh is a base register pair pointing 
to the current instruction quadword. The low two bits of PCB are 0, 
and the low 3 bits of the PC (which point to a byte within the quadword) 
are kept in the (hardware) register PCE. 

Since code segments cannot cross 61K boundaries, and are limited to 
32K words in length, the two bytes of PCBh are forced to be ogual, 
rather than having the least significant byte differ from the msb 
by 1 ns is the normal case for base registers. 

PCF is incremented by tlie functions Nextlnst and NextData. It is 
assumed that the register PCX is loaded automatically from PCF at 
the start of every bytecode. 

Only the low 3 bits of PCF are loaded by PCF*-, but PCF and PCX 
contain 4 bits so that overflow will be bandied properly. 

% 


MosaRof i 116: go top[Mesal!ef i 1 1 ] , Pfotcli4[PCU , IBUF , 4], at[33/7]; ‘refill for page 6 
ONPAGE[0]; 

‘Buffer refill. 

Mesa Re fill: 

PCB <- (PCU) * (4C) ; 

PCF <- RZero; 

«-•»•*»** start of Pilot Code ******************************************* 
nop; * hold page fault on page 0 
re tu rn; 

p — ip p 1: p: 'P :y. JT Q Pilot C0(l0 d* 4* + ♦ d* 4* di *H d* '•¥ JR ♦ # ^ ^ sfc iR & ♦ $ 4* *1* d* *1* d* w 4* 4* di sfc *1* ♦ ^ 'M •!* 

*//•***»*** start of Alto Code ******************************************** 

Swapllytes: * 

IBuf <- Icy[IBllf . 10]; * 

IBufl *- 1 cy[ IBufl, 10]; • 

fBuf 2 <• Icyf IBuf 2 , 10]; * 

IB u f 3 «- 1 cy[ IBuf 3 , 10], RETURN; * 

*//****•♦* End of Alto Code ********************************************** 
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ONPAGF.J 6]; 

% 

Jn, n=2-3. PCF points to the byte beyond the opcode when execution 
starts, so If PCF is odd, the opcode is in the even byte of the 
current word, if PCF is even, the opcode is in the odd byte of the 
previous word. The word displacement of the target from PCF[0:?.'j 


and the final 

lsb of the PC 

are; 


n 

PCF 

PCF 



even 

odd 


2 

0.1 

1,0 


3 

1.0 

1,1 


4 

1,1 

2,0 


5 

2,0 

2,1 


6 

2,1 

3,0 


7 

3,0 

3,1 


8 

3,1 

4,0 

oj 

9 

4,0 

4, 1 

/o 

J2 

T<-OC , 

GETRSPECf127], 

dblgoto[JnE, JnO, Re veil] , 

J3 

r<-ic, 

gotofjnx], opcodo[201]; 

J4 

T* 1C , 

GETRSPECf 12 7], 

dblgoto[JnF., JnO, Rcven] , 

J5 

T< 2C , 

goto[Jnx], opcode[203]; 

J6 

T< 2C , 

GETRSPEC[127], 

dblgoto[JnE,JnO,Revon], 

J/ 

T«'3C , 

goto[Jnx], opcodo[200]; 

J8 

T<-3C , 

GET RSPEC[12 7], 

dbIgoto[JnE,JnO,Reven], 

J9 

T< 4C, 

goto[Jnx], opcode[207|; 


opcode[200] 
opcodo[202] 
opcode[204] 
opcode[206] 


T+- ( 1 df[GE TRSPEC[127], 14 ,3J) t- (T), go to[ JnOcom]; 


Jn E : fr ( ldf[GETPSPEC[127|,14,3 |) + (T), gotoT JnECoin]; 

JnO: T< (ldf[GETRSPEC[127],14,3]) + (T) +1, go to[ JnFXom]; 

JnF.Com: Pf ctch4[PCB, IBUF] ; 

T<- PCB <- T; ‘bypass kludgo 

GETRSPEC[ 127] , dblgoto[JnECo, JnECe, Redd]; 


JnECe: PCB *- ( lsh[PCB , 1]) + 1, goto[JnFin] ; 

JnECo: PCB <- (1 sh[PCB , 1]), go to[ JnF i n ] ; 

JnOCom: Pfetch4[PCB,IBUF]; 

T< PCB »- T; "bypass kludgo 

GETRSPEC[ 127] , dbl go to[ JriOCo , JnOCo, Rodd]; 

JnOCo: PCB «- (lsh[PCB,l]) > 1, goto[JnFin]; 

JnOCo: PCB *- (1 s h[PCB , 1 ] ) , goto[ JnF in ] ; 


*=■***•*•* Start of Pilot Code •»»»»•****•*****«♦*«*•**•»•••*•**•»«•«« 
JnFin: PCF <- PCB; "only the- low 3 bits of PCF are loaded 

PCB <- T; 

*=•♦***** End of Pilot Code •»***•*«******•***•*•♦*•*••*•*•*.**•*•♦•** 

*//******* start of Alto Code ***»•*«•»*****••*•«*****•*********»**»»« 
JnFin: PCF <• PCB; “only the low 3 bits of PCF are loaded 

PCB <- T, LoadPagefO]; 

JSwap: Callp[SwapBytes]; 

lu ♦- Next Ins t[ IBUF ] , call[JnRETx]; 

*!/•*•*•** fnd of Alto Code »»***«***»**«*•*****»**»***»»»**»»•*•**•** 

PBTail: 

Jn RET ; lu <- Next Instf IBUF] ; 

JnRETx: PCB <- (PCB) and not (3c), NIRET; 
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% 

Jump Byte: alpha is a signed displacement from tho opcodo 
This works for -128 < alpha < 122. 

This code (arid that for JW) uses the register AllOnos as a 
temporary, and resets it when done. j 

JB: T<- (MextData[IBlir"])-l, opcode[210] : 

T <- (PCXREG) + (T); *PCX = 0..7 here (tho NbxtData may have caused refill, but 
•PCX is still correct, since PCX is loaded when the refill code returns) 

*T has tho signed BYTE displacement relative to PCR 

*If jumping backward in same quadword, negative may have become positive; 

"mask T to 8 bits 

* = * >h * * * * * S J; q p t o f Pilot Co (io ********** **************** ****** *********** 

JB r: AllOnos *- (rhmask[A110nos]) AND T, goto[JBg, noH2bit8]; * 

* s * * * * * * * End of Pilot Code ********************************************* 

* y/ ****** * S1 0 rt o f Alto Code ******************************************** 

JBr: T <- ( rlimask[A11 Ones]) AND T; * 

AllOnes <- (Zero) r (T) + 1, gotofJBq, noil2bit8]; * 

* ff * .* 1 * :H * * * £ |J {J Qf y\ 1 E o C o d 0 ********************************************** 

PCB <- (PCB) - (200C); ’If bit 8=1, the quantity in I and AllOnes is tho byte 
•displacement + 400b. We subtract 400b bytes from PCB. 

JBq: T <- rsh[Al 1 Ones , 1 ]; ’form word displacement 

*T has positive WORD displacement relative to PCD 
JBy : P fete 1)4 [ PCB , IBUF j ; 

PCB <- T; 

PCF <- AllOnes; 

start of Pilot Code *****.*******. 

AllOnes <- (Zeru)-l, goto[JnRet]; * 

*=*•*♦*** End of Pilot Code ********************************************* 

*//****••* Start of Alto Code *•*♦**•*•*••»*•*••***•**•*****»••**«•*•*•«*• 

Al lOnes <- (Zcro)-l; * 

LoadPagc[0], goto[JSwap]; * 

«//*»***** End of Alto Code ♦***«*•**«*•****••»**•*•****»**»*•*«»* 

•Jump Word: alpha,,beta is a 2's complement displacement from tho opcode. 

*=«*„**** Start of Pilot Code *•«•••*****•******•*••*•••**••****»******** 

JW: lu <- Cycle-Control < NextData[IBUF], opcode[2 11] ; “get alpha * 

T <- NoxtOa ta[ IBUF ] ; “got beta * 

*»*«****• End of Pilot Code ••***••****••••*•********•*•*•«********«***•» 

********* Start of Alto Code ***•*»*•***••*******»****•***************•*» 

JW: in <- GetRSpoc[127], sk ip[R even ], opcodc[211]; * 

lu «- NextDataf IBuf ]; * 

f - NexLDala[lBUF]; ’gel beta * 

lu «- CyclaConlrol *- NoxtDatn[IBUF] ; ’got alpha * 

*//**•*•** End of Alto Code- *♦««•*•************»****»*•«•*••***»****»»**** 

T «- (1 hmask[GetRSpec[ 127j]) OR T; *CycieControl is in bits 0:7 

*T has signed WORD displacement relative to tho opcode 

♦=*♦***** Start of Pilot Code ««««***♦«•***»*******»**»****«♦*♦*»*♦**♦*** 

JWx: T <- (PCFREG) + (T) ; * 

AllOnos «- T *■ (To rmM inus4[A1 lOnes])+ (T) + l, db'l goto[ JWp , JWn , ALU>=0] ; * - 4 *- f+1 = T-3 
********* End of Pilot Code *«*»****»*«»*i»*************•**»*«»***««**««• 

«//**•***« Start of Alto Code **•«•••***•*******•«***»•*•*••********«***«* 

JWx: T *- (PCFREG) + (T); * 

AllOnes <- T «- (A1 I Ones) + (T) , db lgo to[ JWp , JWn , ALU>=0]; «T-1 * 

*//*•***•* End of Alto Code ********************************************** 

JWn: T <- 100000C; ’negative displacement - put in the bit that the shift is about to lose 

T <- ( rsh[ A11 Ones , 1]) or (T) , goto[JBy]; 

JWp: T «- ( rs h£ A11 Ones , I]) , goto[JBy]; 
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"Jump Equal n, H--2..9: 

JEQ2 : T <- (stacks-!), call [JEQEVtost], opeode[212 | j 

T *• T, goto[JnECom]; * Load T for bypass ktudgo 


JEQ3 : 


T * (stack&-l), call [JEQODtest], opcodo[2l3]; 
T <- ( Forml[Al lOncs]) i (T), goto[JnOCom]; 


JEQ4 : 


JEQ5: 


T <- (stack&-l), call [JEQEVtost], opcode[2l4]; 
T «- ( Fo rm 1[ AllOnes ]) + (T), go to[Jni:Com]; 


T *■ (stackft-1.), call [JEQODtest], opcodo[2ld]; 
T <- (Fora2[A110ncsJ) + (T), goto[ JnOCom J; 


JEQ6: 


T ♦- (stack&-l), call [JEQEVtost], opcorlo[216 |; 
T *■ ( Eorm2[A llOnos]) + (T), goto[ JnECom] ; 


JEQ7: 


T «- (stack&-l), call [JEQODtest], opcodo[2l7]; 
T *- (Form3[AVI0nes]) + (T), go to[ JnOCom]; 


JEQ8: 


T <- (stack&-l), call [JEQEVtost], opcodof 22Q |; 
T <- (Eorm3[AllOnes]) (T), gotofJnECom]; 


JEQ9: 


T <- ( stacks-1), call [JEQODtost], opcodo[221] ; 
T <- (Form4[A1 lOnes]) + (T), go to[JnOCom] ; 


JEQEVtost: 

III <- (stacks-1) - (T); 

db Igo to[JEQjmp , JnRET, alli = 0] , T *- (1df[GETRSPEC[127] ,17,1]); 


JEQODtest: 

lu <- (stacks- l) - (T); 

dbI goto[JEQjmp,JnRET,a 1u = 0], T <- OC; 

JEQjmp: 

T «- (ldf[GETRSPEC[127], 14,3]) + (T) , return; 


‘Jump Equal Byte 

JEQI1: T «- (Stacks-1), cal 1[ stkdi T] , usectask, opcode[222]; 

JEQBx: T <- 2c, dblgoto[Ejmp,Onojmp,ALU=0]; 

Ejmp: * T contains length of instuction (2) 

T «- (NcxtData[IBUF]) - T; 

Ejmpx: 

T *■ ( PCFREG) + (T), goto[JBr] ; 

Onojinp: 

lu <- NoxtData[IBUF]; 

Onojmpx: 

lu <- Hextlnst[IBUF],call[JnRETx]; 


stkdif: lu «- (stackS-1) - (T), return; 
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‘Jump Not Equal n, n-2.,9: 

3 ME?.: T «- (stack?,-1), call [JNEEVtest]. opcodo[223]; 

T <- T, goto[JnECom]; * Load T for bypass kludge 


JNE3: 


JNE7 : 


T <- ( stacks- 1), call 
T <- ( Fonnl[Al lOnos]) 


JNE4: T 

T 


(stacks- 1 ), call 
(Formt[AllOnos]) 


JNE5 : T <- ( stackS-1) , cal l 

T *- (Fo cm2 [A If Ones J) 

JNEG : T <- ( stackS-1) , cal 1 

T (Form2[A110nes]) 


T <- (stackS-1), call 
T ( Fo rm3[A 11 Ones ]) 


JNE8: T <- (stackS-L), call 

T <• ( Form3[AllOnes]) 

JNE9 : T <- ( stacks- 1) , call 

T «- ( Fo nn4[Al 1 Ones j) 


[JNEODtest"), opcodc[224] ; 
+ (T), goto[JnOComJ; 

[JNEEVtost], opcodo[225j; 
+ (T), goto[JnECom]; 

[JNEODtest], opcode[226]; 
+ (T), goto[JnOCom]; 

[JNEEVtes t], opcode[227]; 
+ (T), gotofJnECom]; 

[JNEODtest], opcode[230]; 
+ (T), go to[JnOCoinJ ; 

[JNEEVtest], opcode[231]; 
+ (T), goto[JnECom]; 

[JNEODtest], opcode[232]; 
+ (T), goto[JnOCom]; 


JNEEVtest: 

lu <- (stackS-1) - (T); 

db Igoto[JNEjmp , JNFnojmp , a IU//0] , T <- (ldf [GETI1SPEC[127] , 17,1]) ; 


JNEODtest: 

lu *- (stacks-1) - ( T); 

db lgoto[JNEjmp , JNEno jmp , al u//0] , T *- OC ; 


JNEjmp: 

T «- ( ldf [GETI1SPEC[ 12 7] , 14,3]) + (T), return; 
JNEnojmp: 

lu <- NextInst[IBUF], call [JnRETx] ; 


*Jump Not Equal Byte 

JNF.B: T «- (Stacks-1}, cal 1 [ stkdi f|, usectask, opcode[233]; 

JNEBx: T <- 2c, db lgolo[0 jmp , Enojmp, ALU//0]; 

Ojmp: * T contains length of instuction (2) 

T ‘ (HexLData[IBUF]) - T, cal 1[Ejmpx]; 

F.n ojmp: 

lu <- NextData[ IBUF] , call [Onojmpx] ; 
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•Jump Less Byte -• jump if (TOS-1) < TOS 

JLB: T (Stack&-1), cal 1 [ stkd i fj , usee task., opcodfl[234]; 

JLOx: r ♦- ( RZero) + l, dbl go to[ JLDpos , JLBneg , ALU>-Oj FRF.EZEPE5ULT; * T 1 

JLBpos: T *■ (RZero) <• (T) + 1, dblgoto[0no jmp , Ejmp , HOOVE j ; * T <- 2 

JLBneg: T <- (RZero) + (T) + 1, db lgoto[0jmp , Enojmp, MOOVF j ; * T <- 2 


•Jump Greater Equal Byte 

JGEB: T <- (Stack&-1),call[stkdifj,usee task, opcode[235j; 

JGEBx : T «- (RZcro)H, db lgoto[JGEBpos , JGEBneg , ALU>=d) j , FRMEZFRESULT; * T <- 1 

JGF.Bpos: T <- (RZero) + (T) + 1, db I goto[ F.nojnip, Ojmp, OVF j ; * T 2 

JGEBneg: T <- (RZero) + (T) + 1, db1goto[ Ejmp , Onojrnp, OVF]; • * T *- 2 


•Jump Greater Byte 

JGU: Stack&-1,usectask,call[‘stkswj, opcode[236j; 

lu *- (Stack&-2) - (T), goto[JLBxj; 


•Jump Loss Equal Byte 

JLEB: Stack&-1,usectask,cal I[stkswj, opcode[237]; 

lu <■ (Stack&-2) - (T), goto[JGEBx]; 


stksw: T <- stack&i-l, return; 


•Jump Unsigned Less Byte 

JULB: T <- (Stack&-1), usectask,call[stkdif], opcodo[240]; 

JULBx: T *■ 2c, db lgo to[Onojmp, Ejmp , Ca rry]; 

•Jump Unsigned Greater Equal Byte 

JUGF.B: E (Stack&-1), usectask, call [ stkd i fj, opcod;o[ 2 41 j; 

JUGEBx: T <• 2c, dbI gotofOjmp,Enojmp,Carryj; 

•Jump Unsigned Greater Byte 

JUGB: Stack&-1,nsec task,call[stksw], opcode[242j; 

lu «- (Slack&-2) - (T), goto[JULBxj; 

•Jump Unsigned Less Equal Byte 

JULEB: Stack&-1, lisec task , call [ s tksw |, opcodo[ 243 ] ; 

lu <- (S tac k& -2 ) - (T), go to[ JUGEBx J ; 

•Jump Zero Equal Byte 

J7.EQB: lu *- (Stack&-1), goto[JEQBx], opcodc[244j; 

•Jump Zero Not Equal Byte 

JZNEB: lu <- (Stack&-1), goto[JNEBxj, opcodo[245j; 
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♦Jump Indexed Byte 

» = •****•* Start'of Pilot Code *****•»»********»*.*»•***♦***♦«***♦«.****** 
JIB: T <- Stack&-1, uscctask, cal I[stkdIf], opcode[246]; * 

goto[JIE<nojmp,carry | ,Stuck&->1; * 

lu <- CycleControl NextData[IBUF]; "get alpha * 

T «- NextDatafIBUF]; "get beta * 

T +- (1 hmri'sk[GetRSpec[127|]) OR T; "CycloControl is in bits 0:7 * 

T » ( rsh('Stack, 1]) + (F),task; * 

PF F.TCII1[C0DF., RTEMP]; * 

Stacka-1, dblgoto[J IB1,JIBr,Revon]; * 

| « 

JIbl : T <- ( I df [RTEMP ,0,10]), goto[JWx]; * 

JIBr: T «- (rhmask[RTEMP]), goto[JWx]; * 

JIBnojmp: * 

111 <- NnxtData[IBUF"J, call [J IWnojinpx]; "skip alpha * 

■» ■- * * * >t» * * >R |T |i q f Pilot COCJP * * # d« * * * # * + * * * * * * * * iN * # m * ** 

IN ff <N * * * * * « p q f /\ "] t O C O d O * * * * * * * * * * * * * !ji * 'I* * * * I* * * * * f * * * • '* + * * # * >N * * + * 

JIB: T <- sUn implemented, goto[doTrapP6], opcodef 2V1G ]: * 

*//»****»♦ Fnd of Alto Code ********************************************** 


"Jump Indexed Word 

• 3 ****»*» start, of Pilot Codo ****»*»***********»**»*****»»***»*»****«*** 
JIW: T <• Stack&-1, usectask, cal 1 [stkdif ), opcodfc[247]; * 

goto[ JlWnojmp, carry] ,Stack&i-l; " * 

In <- CycleControl «- Hex tDatafTBUF]; "get alplia * 

T <- Nex tOata[IBUF]; "get beta * 

*»***«**« End of Pilot Code »*»***»»»******«*«♦******•***•****♦»•*****»««* 


* If >H * *H 

JIW: 


*//*** 


*"** Start of Alto Codo ************* 
In ‘ GetRSpec[127 |, skip[R even], 
In < Nextl)nta[ IOu’f ] ; 

T <- Slack&-1; 

usoctask, call[stkdif]; 

go to[ JIWiio jinp, carry] , Stack& 11; 

I < Noxtbata[IBUF]; "get beta 
III i- CycleControl <- HcxtDataflBUF] 
**** Fnd of Alto Code *♦*««*♦****»*** 


opcode[247 "I; 


"get alpha 


T <- ( I hmask[Ge tRSpecf 12 7]]) OR T; "CycleControl is in bits 0:7 

F < (Stack&-1) + (T),task; 

PFETCHL[CODE,RTEMP]; 

I <- RTEMP, goto[JWx ]; 


JlWnojmp: 

lu <- MoxtDatafIBUF]; *skip alpha 
JlWnojmpx: 

Stack&-1; "adjust the stack 

lu <- NoxtDa ta[ IBUF j , cal I[JnRET]; "skip beta 






■MesaJ .inc 


3-Nov-79 19:16:53 


Page 8 


♦ADO 

QADD : T «- Stack&-1, opcode[250j; 

Addx: lu +• Nextlns t[IBuf J : 

Stack <- (Stack) + (T), NIRet; 

♦SUB 

0SIJB : T + Stack&-1, opcode[261] ; 

Subx: lu +■ Nex tins tf IBuf] ; 

Stack <- (Stack) - (T), NIRct; 

♦Multiply - The high half of the 32-bit product is left above the top of the stack 

* product low in Stack, hi in RTEMPl 

* mill t i pi ip 1 Icand low in RTEMP, hi in xfMX 

* multiplier in xfMY 

f'JMUI.: T <- RTEMPl <- Oc , opcode[252 J; 

SALEIF «- r, cal 1 [PopToT]; * Saluf « 0 is a no op 
xfMY <- T, UseCTask, call[PopToT]; 

Stack&'l <- Oc, sk ip[alu//0]; * tes ts xfMY + T 
Stack&+1 <- Oc, gotofmdPop]; 

RTEMP + T, cal I [. + 11; 

xfMY <■ (rsbfxfMY, 1]) sa'lufop (T), skip[reven]; * top of loopl 
Stack <- (Stack) + (T), dblgo to [mu lOoiio, MEILa, alu=0]; 

MU Lb: T <- RTEMP <- (RTEMP) + (T), E reezoRasu! t, skip[r>=0|; 

RTEMPl <• (RTEMPl) + 1, UsoCoutAsCill, goto[mulLong ]; 

RTEMPl < (RTEMPl) + 1, UsoCoutAsCin, return; 

MULa: FreezeResuIt, gotofMUEb]; 

mu 1 Long: 

x TMX + 1c, ca l 1 [ . H] ; 

lu <- (xfMY) salufop (T), skip[reven]; * top of loop? 

Stack + (Stack) + (T); 

RTEMPl - (RTEMPl) + 1, UsoCoutAsCin; 

RTEMP *- (RTEMP) + (T ); 

T <- xfMX, FreezoResult; 
xfMX «- (xfMX) i (T) + 1, UseCoutAsC in; 
xfMY <- rsh[ xfMY, 1 J , ski p[ revon] ; 

T <- RTEMPl < (RTEMPl) + (T), dblgoto[mdPusli, MULc, alu = 0T; 

T <- RTEMP, return; 

MULc: T + RTEMP, return; 

mulDone: T *- (RTEMPl) i- 1, UseCoutAsCin, goto[mdPush] ; 

indPush: Stack&il <■ T, gotofmdPop]; 
mdPop: Stack&-1, gotoj'P6Tai 1 ]; 

PopToT: T <- Stack&-1, FreezeResu! t, return; 

♦Double 

DBL: T <- 1 sh[Stack& ■ 1,1] , 0pcodo[253 ]; 

PushTPO: lu <■ Moxtlnstf IBUF] ; 

Stack&H «- f, NIRET; 
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‘"Divide - (T0S-1J/T0S. Single word dividend, single wo rd divisor, no cheek for overflow. 

*Tho remainder is left abovo the stack. 

00IV: MULtll <- Stack&-1, opcodo[254]; 

T *- Oc, goto[LDIVx ]; 

‘Long Oivido - (TOS -1),,(TOS-?)/TOS. Double word dividend, single word divisor, no check for overflow. 
*The remainder is left above the stack. 

* dividend low in Stack; hi in RTEMP 

* divisor in f 

* quotient appears in Stack; remainder in RTEMP 
QLDIV: MNFSR «- Stack&-1, cal 1 [ Pop To T], opcode[2f>5'|; 

IDIVx: RTEMP e T, LondPage[opPagoO]; 

T *- MMBR, gotop[ .+1']; 
onpagc[opPageO]; 

In <- (RTEMP) - (T), goto[zerodivide, n lu- O'J; 
goto[dividecheck, carry]; 
nop; 

rent <• 17c, call[d ivStart]; 
lu «- RTEMPt; * top of loop 

RTEMP <■ (RTEMP) - (T), sk ipfalu=0]; » subtract divisor 

Stack <■ (1sh[Stack , 1]) + i, db 1 go to[di vs 1, divsO, r<0]; ' q bit 1 
skip[nocarry"|; 

Stack «- (1 sh[S tack , 1]) 1 - 1, db 1 go to[di vs 1, divsO, r<0'|; * q bit 1 
RTEMP <- (RTEMP) + (T); * add back divisor 
divStart: 

Stack *■ 1 s h[ St ack , 1] , db lgoto[divsl, divsO, r< 0 ] ; * q bit 0 

divsl: rent «- (rent) - 1, goto[d ivDonol, r<0]; * shift l 

RTEMP <- (1 sh[RTEMP , 1]) 1 - 1, db 1 go to[ d i vhs 1, divhsO, r<0]; 

divsO: rent «- (rent) - 1, goto[divl)ono2, r<0]; * shift 0 

RI'EMP «- 1 sh[RTEMP, 1] , dbigoto[d ivhs 1,' d i vhsO, r<0]; 

divlisl: RTEMP1 <- 1c, return; * next quotient bit known to be 1 
divhsO: RTEMP1 <- Oc, return; * next quotient bit unknown 

divDonol: T <- RTEMP, LoadPagefopPageZ] , got o[d i vPus it] ; 

divDono?: T *- RTEMP, L.oadPage[opPago2 j , goto[d I vPus h] ; 

divPush: Stack&+1 <- T, go Lop[mdPop]; 

di videcheck: T <- sDi vi dcCheck, goto[doTrapPT] ; 

zerodivide: T <- sZeroDiv isor, goto[doTrapP4]; 

onpago[opPuge2]; 
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"Negate 

QNEG : T stacks-1, 0pcode[266]; 

T <- (Zero) - (T), goto[PushTP6]; 

•Inc remont 

SING: T (Stack&-1) + 1, goto[PushTP0] , Opcode(257]; 

"And 

©AND: T <- Stack&-1, 0pcodc[260]; 

Stack *- (Stack) and (T), goto[P6Tai1]; 

*0R 

BOP: T Stack&-1,. Opcode[261] ; 

Stack <- (Stack) or (T), goto[PQTa i 1 ] ; 

*XOR 

0X01?: T <- Stack&-1, Opcode[262]; 

Stack «- (Stack) xor (T), goto[P0Tai 1'); 

"Shi f t 

©SHIFT: T <- Stack&-1, Opcodc[2G3] ; 

dblgoto[Sh i f tRiglit, Shi f tLef t, ALIKO j , RTEMP <-T 

Sh i f t H igh t: RTEMP <- ( RTEHP) ± (17C) ; 

dblgotofSHFl ,SIIF2 , Carry); 

SHF2 : go to[ P6T a i IJ , Stack «- Zero; "shift count > 

SUFI: CycIeControI <- RTEMP; 

goto[P6Ta il J , Stack <- RF[Stack]; 

ShiftLeft: In <■ (RTEMP) and not (17C); 

dblgoto[SHF3 , SIIF4 , ALU-0] , T <- (RTEMP) ; 

SIIF4: goto[P6Tai l’|, Stack «- Zero ; "shift count > 

*T has positive count, form 0,,-count, then uso WFA 
SHF 3: RTEMP <- (Zoro) - (T) - l ; 

RTEMP <- (RTEMP) and (17C) ; 

CycIeControI <- RTEMP ; 
go to[P6Tai I ] , Stack <- WFA[Stackj; 


17 , uso zero 


17 , use zero 
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‘Double Add 

6DADD: MNBR Stack&-1, cal 'I [GatTDecSt k2,1, opcodo[2G4'J; "point, to Is!) of top doubleword 
Stack <- (Stack) t- (T), * add low bits 
Stack&+1, gotofdAddC, carry]; 

T *• MNBR, gotofAddx]; * pick up high bits of top doubleword 
dAddC: T <- (MNBR) *• 1, gotofAddx]; * pick up high bits of top doub'loword 

‘Double Subtract 

0DSUU; MNBR <■ Stack&-1, call [Get TDecStk2], opcodo[2GS]; ‘point to lsb of top doubleword 
Stack «- (Stack) - (T); * subtract low bits 

Stack&ci, gotofdSubC, NoCarry]; ‘point to msb of second doubleword 
T «- MNBR, goto[Subx]; ‘remember msb of top doubleword (i'05) 
dSubC: T <- (MNBR) + 1, goto[Subx]; 

GotrDccStk2: T <- (Stack&-2), return; ‘grab it, point to lsb of second doubleword 

‘Double Signed Compare: 

•If (T0S-2),,(TOS-3) < TOS,,(TOS-1), push -1 
•If (TOS-2),,(TOS-3) = TOS,,(TOS-1), push 0 
•If (TOS-2),,(TOS-3) > TOS,,(TOS-1), push 1 
•Comparisons are signed 

DCOMP: T <- (Stack&-2) 1 ( 100000c), 0pcode[206]; 

Stack «- (Stack) + (100000c), gotofDUCOMPy]; 


•Double Compare: 

•If (TOS-2),,(TOS-3) < TOS,,(TOS-1), push -1 
•If (TOS-2),,(TOS-3) = TOS,,(TOS-1), push 0 
•If (TOS-2),,(TOS-3) > TOS,,(TOS-1), push 1 
•Comparisons arc unsigned 
DUCOMP: T «- Stack&-2, Opcode[2G7]; 

DUCOMPy: 

lu *■ (Stack&‘l) - (T); ’Compare msb's, point at lsb of high doubleword 

goto[DLICompa rel.owB i t s, ALU-0], T <- Stack&-2, I REEZF.RESULT; ‘grab lsb of top doubleword, 
•point at lsb of second doubleword 

DUCompx: db lgoto[DUComp! , DllCompG , NoCarry]; 

DUCompL: T «- (RZoro) - 1, goto[DUCoinpEqual "|; 

DUCompG: T *■ (RZero) ' 1, goto[DUCompCgual]; 

DUComparoLowBits: T <- (Stack) - (T); 

go tof'DUCompEgua I , ALU-0], f REEZERESULT; 
dbI gotofDUCompL, DUCompG, NoCarry]; 

OUCompEgua 1 : Stack «- T, goto[P6Tail ] ; 

•ADD01 - on DO, equivalent to ADD 

ADD01: goto[Addx], T «- Stack&-1, 0pcodc[270]; 


•Unused opcodes on page 6 

T *- sUn imp 1 emeu ted , 
T «- sUn imp 1 emeu ted , 
T < sUnimplemented, 
T sUn implemented, 
T <- sUn imp I emented , 
T <■ sUn implemented , 
T «■ sUnimplemented, 
doT rapP6: 

LoadPage[opPage3]; 
go top[k f c r]; 


goto) do TrapPG | , 
go to[doT rapP6j, 
goto[do TrapPG], 
goto)doT rapPG], 
go to[doT rapP6], 
go to[doT rapPG], 
gotofdoTrapPG], 


opcodef 2/1 ] 
opcode[2 12 j 
opcode[273 ) 
opcodo[274] 
opcode[2 /(>] 
opcode[276 | 
opcode[277'j 


END; 
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insortfdOlang]; 

N0MIDAS1M1T; LANGVERSION jMULTDIB; 

111 so rt[G I obalDe f s ] ; 

TXTLEfml]; 

* modified by Johnsson, October 9, 1979 4:44 PM, RFSL stack error 

* modified by Sandman, September 18, 1979 10:34 AM, AR 1708 I.INKB 

* modified by Chang, September 7, 1979 4:24 PM, move In It End to page 0 

* modified by Johnsson, June 28, 1979 10:11 AM 

* modified by Chang, May 27, 1979 2:09 PM, nail down InitEnd 

* modified by Sandman, April 5, 1979 2:43 PM 

* End of initialization and start of emulators 


MC[PilotRunning, 202]; 

MC[A1 toRlinn ing , 214]; 

MC[A I toMDS, 0]; 

MC[P i lotMDS, 76]; 

0NPAGE[T imcrPage]; 

In ItEnd: 

*7/*»***»* Start of Alto Code •****••••••*•*********•****•**•**■*******■■ 

MWW <■ 100000c, at[ I 11 ItEndLoc]; 

SMAh «- T <- Oc; 

Carry «- T, LoadPago[0]; 

T <- (A1 toRunning), callpfPNIP]; 

PEetchl[Nova, xfBrkByto, 1]; * use xfBrkByte ns temp 
f <- DMA <• 0c; 

Hi <- xfBrkByto; 

xTMX «• 4c, goto[MesaBoot, alu = 0]; 

PCBh <- T, loadpage[uoPage]; 

T <■ le, gotop[JMP]; 

*//•*•**** End of Alto Code ****»»*»«»*******i>****«»*«*******«*«****«*- 
Start of Pilot Code »****»*«•****»»»**«*«****•»♦•**********. 
EoadPagefO], ut[ In itEndLoc]; 

I <- (P i io t Runni ng ) , callp[PNIP]; 

*,»***«** End of Pilot Code *»•***•**•»****«**•**•••***■*****♦*»****«*• 
MesaBoot: 

*.**•«*** start of Pilot Code *•*••****•*•*••»***•*••****•****•**••**> 

T <- GLOBALhi < Pi lotMDS; 

xf MX <- 1000c; 

xfMX <- (xfMX) or (376c); 

*-***«*«* End 0 f Pilot Code *•*•••••*••**•***•••**•••***•****•»******< 
*//**»*»** Start of Alto Code *••**•*•••*•*••**»*»***»************•***' 

T <■ GLOBAL hi «- A I toMDS; 

*//****•*♦ End of Alto Code **♦*•*••********•«**•*»*******»«»**»»****»' 

T < GLOBALhi <- ( 1 sh[GLOBALhi , 10]) or (T); 
xfWDC <- lc; 

NWW <- 0c; 

MDS <- 0c; 

MDShi *- T; 

I ickCount <- 3c; 
xfXTSRog <- 0c; 

I.OCALhi <- T, LondPagc[opPago3]; 

MemStat *- (Normal), gotop[MStart]; 



•Common tail and refill for instructions on page 4 
ONPAGEf4]; 

Mesaftefill4: gotop[Mesallef i 11 ] , Pfetch4[PCB , IBUL , 4] , at[237 /]; 

MesaBBret: 

Start of Alto Code «**•*•*»***♦«*»*•****»*«»***»♦***•**. 
lu <- GetRSpec[127], skip[R even]; 
lu ♦- NextData[ IBuf]; 
goto[P4Tai1]; 

*//****•*• Fuid of Alto Code •***********•*******•************•****' 


P4Tai'l; lu <• NextInst[IBUF]; *cominon tail for page 4 ~ MUST READ R to interlock 
P4T a 11x: NIUET; 


•NOP - should not get here unless wo need an interrupt 
0NOP: r <- (R7ero)+l, goto[M0Pint,IntPending], opcode[0]; 

goto[P4Tai I ]; 

NOPiiit; RTEMP *- T, loadpage[7]; * RTEMP «- (PC backup if stopping) 

T <• (GetRSpec[ 103]) xor (377c), cal lp[MIPendx]; * T <- Stkp xor 377 
T < (PCFreg) - l; 

RTEMP «- T; 

PCF <- RTEMP, goto[N0Ppcf neg , al ll<0] ; 

goto[ IMTai 1 ] ; *wait one instruction for PCF*- to take 

HOPpcfneg: 

PCB <- (PCB) - (4c). goto[P4Tai 1 ]; 

* Monitor instructions in xPR.mc 

’ 'IP.N; 


P4Ret: 






MesaLS.mc 


3-Nov 79 19:10:63 


Page 2 


"l.oail Local 11 , n = 0-7 

11.0: Pfetctil[LOCAL, Stack, 4], goto[P4Tai1 ], o,ocode[10] ; 

LL1: Pfetchi[LOCAL,Stack,5 |, gotofIMTai1], opcodo[ll] ; 

LL2: Pfetchlfl.OCAL, Stack, 6] , goto[P4Tail], opcodo[12| ; 

IL3: Pfotchlf LOCAL, Stack, 7], goto[P4Ta i 1], opcode[13| ; 

1.1.4: Pfetchi [LOCAL, Stack, 10 1, goto[ P4 Tai 11, opcode[14J ; 

1.1.8: Pfetchl[LOCAL, Stack , 11] , goto[P4'fai I ], opcode[lb| ; 

LL.6: Pf etch 1[ LOCAL, Stack , 12 j, goto[P4Tai1j, opcode[.l6'j ; 

LL7: Pfetchl[LOCAL,Stack,13], goto[P4Tai1], opcode[l/] ; 

"Load Local Byte 

LL.B: r *- NoxtDataflBIJF], opcode[20]; 

Pfetchl[LOCAL,Stack], goto[P4TaiI]; 

‘load Local Double Ryto 
1 L Dll: T <- NextData[IBUF] , opcode[Zl]; 

LLDB1: Pfetch2[L0CAL,Stack], caH[FQtj; 

*If FQT roturns, guadOVF has occurred. Fetch tho first word into PfLMP 
CALL[IncTl], Pfetchi [LOCAL, RTF.MPj; 

Pfetchl[L0CAL,Stack], goto[0oubleReadTa11]; 

•By this time, we know that the first fetch has not faulted. If the second one faults, 
"the fourth instruction after the (’fetch will he aborted, Tf we wait to update the first 
"word, we don't have to tell the fault handler anything about the state of the memory. 
OoubloRoadTail: nop; 

Stack&-1; ‘Adjust the stackpointer to point to the first word of the pair 
DoubleReadTailx: T <- RTLMP; 

Stack <- I; "deposit the first word 
lu *- Next Ins t[ IBUF]; 

Stack&+1, MI RET; "final stkp adjust 

TncTl: I <- (Zero) + (T) + 1, return; "increment T by l 

LOT: goto[.+2, QuadOVF]; 

III <- Nox tins t[ IBUF] , call [P4 fa i 1 x ] ; 

Stack&-1, return; "adjust the stackpointer modified by the failed fetch to point 
"one below the SECOND word to bo fetched. 

"Store Local n, n-0-7 

SLO: PStorel[LOCAL,Stack,4], goto[P4Tail], 0pcode[22j; 

SL1: PSto rel[I.OCAL, Stack, 6j , goto[P4Ta i 1 ] , 0pcode[23j; 

SI.2: PStorol[LOCAL, Stack, 6 j, goto[P4Ta i 1 ] , 0pcode[24]; 

SL3: PSto re 1[ LOCAL, Stack, 7] , go to[P4 Ta i I j, 0pcode[2.5j; 

SI.4: PStorel[LOCAL,Stack,10], goto[P4Tai1], 0pcode[20j; 

SIS: PS to re l[LOCAL,Stack, 11], gotoj IMTa i 1j, Opcodo[2/j; 

SL6: PStorelflOCAL,Stack,12], gotofP4Ta i 1], 0pcodo[30]; 

SL7: PStorel[L0CAL,Stack, 13], goto[P4Tai1], Opcodo[3l]; 

"Store Local Byte 

SLU: T <■ NextData[IBUF], opcOde[32‘|; 

P3torel[L0CAL,Stack], goto[P4faiI]; 
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•Put Local n, n=0-3. Equivalent to SLn.Push 
PLO: PS to rel[LOCAL, Stack, 4] , goto[Put'fail | ,opcodo[33] i 

PL1: PSto rel|LOCAL,Stack,0],go to[Pu tTai1],opcode[34]; 

PL2: PSto reif LOCAL,Stack,6],goto[PutTaiI],opendo[35 ]; 

PL3: PSto re1[LOCAL,Stack,7],goto[PutTai1 j.opcode[36j; 

• increment stkp by hand so not caught by interlock 
PutTai1: 

T «- (GetRSpec[ 103] ) xor (377c); 

RTomp «• (Zero) + T + 1; 

Stkp «- RTemp, goto[P4TaiI]; 

•Load Global n, n=0-7 

LGO: Pfotchl[GL0BAL,Stack,3], go to [ P4Tai 1 ], opc6}de[!37'] 

LG 1: Pf etc til [GLOBAL .Stack, 4], goto[P4Ta1 I], opcoUe[40] 

LG2: P letch 1 [GLOBAL, Stack , 5], golo[P4TaiI], opcbde[i41] 

LG 3 : Pfotchl[GLOBAL, Stack, 6], goto[P4T a i I j , opcodo[42] 

I.G4 : PFetchl[GLOBAL,Stack,7], go to[P4Tai 1 j , opcptlo[i43 j 

I.G5: Pfetchl[GLOBAL,Stack,10], goto[P4Tni1], opcbdo|[44] 

LG6: Pfelchl[GLOBAL, Stack, U] , goto[P4Tai I ] , opfpdoi[4S‘] 

LG7: Pfelchl[GLOBAL.Stack,12], goto[P4Tai 1], opcode[46] 

•Load Global Byte 

LGB : T *- NextDa ta[IBUF |, 0pC0de[47]; 

Pfetchl[Gl.OBAL, Stack], go to[P4Tai 1 ] ; 

•Load Global Double Byte 

LGDB: 1 < NoxlData[ IBUF], opcodo[50] ; 

LGD01: Pretcl)2[GLOBAL,Stack], cal1[FQT]; 

•If FQI returns, quadOVF occurred. See LLDB. 

Cal I [IncTl], Pfotchl[Gl ORAL , R1 F.MP]; 

Pfotchl[GLOBAL.Stack], goto[DoublcRcadTai1]; 

•Store Global n, n=0-7 

SGO: PSto rel [GLOBAL, Stack ,3] , go to[ IMTai 1 ], Opcpr!e[51]; 

SGI: PS to rel[GLOBAL,Stack,4j, goto[P4lai1j, Opcodo[52]; 

SG2: PStorel[GLOBAL,Stack,0], goto[P4Tai1], Opcode[53]; 

SG3: PSto rel [GLOBAL , Stack , 6] , go to[P4Ta i 1 ] , Opco(le[64 j ; 

•Store Global Byte 

SGB: T *■ NextData[IBUF], opcodc[b5]; 

PSto i'el [GLOBAL, Stack], goto[P4Tail]; 


•Load Immediate n, n=0-8 


LI0 : 

III 

- NoxtTnst[IBtJF], 

0pcode[G6] ; 


Stack&i 

<- 0c, Ml RET 


LI 1 : 

r <- 

lc. 

go tofPushT] , 

0pcode[57]; 

LI2 : 

T <- 

2c, 

goto[PushT], 

0pcode[60]; 

L 13 : 

T <- 

3c, 

goto[PusMT], 

0pcodo[6l] ; 

LI 4: 

T <- 

4c, 

goto[PusliT], 

Opcode[62] ; 

115: 

I <- 

5c, 

goto[PusliT], 

0pcode[63] ; 

LIG: 

r •- 

6c, 

go to[Pusb 1 ], 

0pcode[64]; 


•Load Immediate Negative 1. 

LIN1: T (Zoro)-l, goto[PushT], Opcode[65J; 

•Load Immediate Negative Infinity 
LIMI : I <- 100000c, goto[PusbT] , Opcode[G6]; 

•Load Immediate Byte 

I IB: T <- NoxtData[IBUF] , 0pcode[67]; 

PushT: III <- Next I nst[ IBUF ] ; 

Stack&+1 <- T, NIRF.T; 

•Load Immediate Word 

* = ***•*•* Start of Pilot Code ****************** #•*;*■*****»* *« 

LIW: lu <- CycleControl <- NextData[IBUF], 0pcode[,7Q]; 

T <- NoxtData[IBUr] ; 

* = ***••** End of Pilot Code *** ********* **#**«** **•*:*'»******* * 

*//•••**** Start of Alto Code ******************************** 
LIW: lu *- GetRSpecf 127] , skip[R even], 0pcode[70]j 

lu <- NextData[IBuf]; 
r «- NextData[IBUF] ; 

In *• CycleControl <- NextData[IBUF]; 

•//**•••*• End of Alto Code ********************************** 

T <- ( lhmask[GetRSpec[127]]) OR T, goto[PushT]; 

•Load Immediate Negative Byte 
LIND: T <- 177400c, opcode[71]; 

r <■ NextData[IBuf] OR T, cal1[PushT]; 
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‘Local Address Byte - since MDS is 64K aligned, the ‘low half of the base register Is I. 
L.ADRU: T *■ LOCAL, Opcode[72]; 

LADRQx: T <- (NextData[IBUF])' + (T), ca1l[PushT]; 

"Global Address Byte 

GADI1B : T GLOBAL, goto[ LADRBx], Opcode[/3]; 

‘unused opcodes on page 4 

T «- sUnimplemonted, goto[dofrapP4'|, opcode[74J; 

T «- sUnimplemonted, goto[do TrapPI ], opcodo[/6]; 

T «- sUnimplemented, got.o[doTrnpP4 j, opcodo[76j; 

I <- sUnimplementcd, goto[doTrapP4j , opcode[77|; 
doTraplM: 

LoadPagc[opPage3]; 
gotopl'kfcr]; 
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♦Common tail and refill for instructions oil page 6 
0nPago[5]; 

MesaRefillb: gotopfMesaRefi 11]. Pfetch4[PCB, IBUF , 4] , at[Z777]; 
PBTail: lu <- NextXnstflBUF]; 

PGTailx: NX RET; 


♦Read n, n=0-4 

R0: T <- (Stack&-1) + (Oc), gotof ReadT.ii 1 ] , 

Rl: T «- (StackS-1) + (le), gotof IleadTa i 1 ] , 

R2 : T «• (Stack&-1) (2c), gotof Readi'ai 1 ] , 

R3: T <- (StackS-1) + (3c), gotofReadTa i 1 ], 

114: T <- (Stack&-1) + (4c), go tof Road'fai I ], 


Opcodof 100 i; 
OpcoddflOlj; 
Opcodcif .102']; 
Opcodof103]; 
Opcodof104 |; 


♦Read Byto 

0RD: T <- NextDatafIBUF], Opcodof 106]; 

T «- (StackS-i) + (T), gotofReadTnil]; 


RoadTai I: PfotchlfMDS,Stack],goto[P5Tai1]; 


♦Write n, n = 0-2 

W0: T <- (Stack&-1) + (0c), gotofWri toTa 11 ] , Opcodof JOG] ; 

Wl: T <• (Stacks-1) + (tc), gotofWriteTai1], Opcodefl07]; 

W2 : T *• (StackS-1) »• (2c), gotofWriteTai1], Opcodof 110]; 


♦Write Byte 

WO: T <- NextDatafIBUF] , Opcodeflll]; 

T <- (StackS-i) + (T) , go tofWri teTa i 1 ]; 

WritoTail: PStorelfMDS,Stack], gotofPSTaiI]; 


♦Road Field 

♦=******♦ Start of Pilot Code ****************************************** 
0RF : T <- NextDatafIBUF], Opcodof 112 |; *got offset 

lu <- CycloControl *- NextDataf IBUF]; “get field descriptor 
*=»»«**** End of Pilot Code ********************************************* 


"II ******* start of Alto Code ************************************’ 
AlignFiold: 

tisectask, gotopfAFG]; 
onpagef6]; 

AF6: T <~ apc&apctask; 

RTEMP <• T; 

lu <- GctRSpocf 127], skipfR even]; 
lu <- NextDataf IBuf] ; 

1 lu <- CycleControl <- NextDataf IBUF]; *get field descriptor 
T < NextDataf IBUF]; *get offset, 
apcSapctask RTFMP; 
return; 


oripagef 5] 

@11F: loadpagcfB], call f A1 ignFi e 1 d], Opcodof 112]; 

*//*♦**♦** End of Alto Code ***************************** 


IlFy: T < (StackS-1) + (T), caI IfFetchMDSToStack]; "add pointer, fetch 

lu <- Nextlnstf IBUF]; 

RFx: Stack <- IlFfStack], NIRET; *do the work on the stack 

FetchMDSToStack: PfetchlfMDS,Stack],RETURN; 


♦Write Field 

*=**•**•* Start of Pilot Code ************************************ 
WF: T «- Nex tDa taf IBUF] , Opcode-f 113] ; *got offset 

lu <- CycleControl *■ NextDataf IBUF]; *get field descriptor 
*=*****•« Eng of Pilot Code ************************************** 


*//»***♦** Start of Alto Code ******************************************* 
WF: loadpagefB], ca11[A IignField], OpcodefllB]; 

*//**♦*♦** Fuel of Alto Code * *i ****************************************** 

Wfz: T <- (StackS-1) + (T), cal 1[FetchMDSToRTFMP]; *add pointer, fetch 

RTEMP 1 <- T; '"save pointer 
T <- WFAfStackS-1]; ‘f ield to ho inserted 
WFy: RTEMP <- (WFB[RTEMP]) or (T); *do insert 

WFx: T <- RTEMP 1, gotofWSOx]; 


FetchMDSToRTEMP: PfetchlfMDS,RTEMP]; 

P5Rot: RETURN; ‘allow time for T to be written 











MosaLS.mc 


3-Nov-79 19:IS:63 


Pago G 


‘Read Double Byte 

RDO: T «• NextData[IBUT], Qpcode[ 114]; 

T <- (Stack&-i) i- (T), LoadPage[4], goto[Doublelt«ad]; 

♦Road Double 0 

RDO: T <- Stack&-1, LoadPagu[4], Opeode[116]; 

DoubleRead: Pfetch2[MDS, Stack ], cal 1 p[ FQT "j; 

•If FQT returns, quadOVF has occurred. Soe LLDB. 

Cal([IncTlpG], Pfe tchl[MDS. RTEMP] ; 

Pretclv.l[MDS, Stack |; 

DoubloReadx: LoadPago[4]; 

Stack&-1, go top[DoubleReadTa ilx]; 

IncSZTl: Stack&+2; ‘Increment stkp by 2, and... 

IncTlp5: T <- (7oro) h (I) i- I, RETURN; * increment I by 1 

•Write Double Byte 

WDB ; T *- NexLData[IDUF'|. opcode[HG]; 

T <- (Stacks,- l) + (I); 

DoubleWrite: PStore2[MDS,Stack], ca11[SQT]; 

•If SQT returns, do two single stores 

PStorol[MDS,Stack],'call[IncSZTl]; 

PStore.l[MDS,Stack] , goto[WSDBx] ; 


♦Write Double 0 

WDO: T <- Stack&-X, gotofDoubleWrite ], opcodo[ 117] ; 

SOT: goto[.+Z, quadOVF]; 

lu «- Noxtlns t[ IllUF] , call [P5Ta i lx] ; 

Stack&il, return; *set stkp to point to the first word to be stored 
•Road String 

RSTR: T «- CNextData[IBUF], call[RWSTRx], opcode[l20]; *get alpha 

lu <• RTEMP 1, db IgotofRSTRLe f t, RSTRRiglvt, Roven], l.oadPage[ 4] ; 

RSTRLoft: T <- rsh[ RTEMP, 10] , gol.op[Push T] ; 

RSTRR ight: T rhmask[RTEMP], golop[Pusl)T] ; 

"Write String 

WSTR: T <- CNextData[IBUF], call[RWSTRx], opcode[l.?l]; 

RTEMP 1 *■ T, db 1 go to[WSTRl.ef t, WSTRRight, Revonj; ‘test low bit of RTEMP 1, save pointer 
WSTRLeft: T <- 1 sh[Stack&-1, 10]; 

RTEMP <- ( rhniask[RTEMP]) or (T), goto[WFx]; 

WSTRRight: T <■ rhinask[Stack&-1]; 

RTEMP <- (1 Innas k[R TEMP] ) or (T), goto[WFx]; 

RWSTRx: T «- (StackS-l) i- (T); ‘string index 
RTEMP 1 *- T; 

T *■ (Stack&-1); ‘pointer 

T *■ ( rsh[ RTEMP 1,1]) ^ (T), go to[ Fe tchMDSToR TEMP |; 
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*Road Indexed by Local Pair 

RXLP : T <- NextData[IBUF], opcodcf 122']; 

RTF.MP1 -i- T, call [ I.PPoInte r] ; 

T «- (Stack8r-1) + (T) . goto[RILPx]; 

*Writo Indexed by Local Pair 

WXLP: T <- NexlData[ IBIJF], opcode[123]; 

RTF.MP l <- T, call[LPPoiiiter]; 

T <- (Stack&~1) + (T), yoto[WILPx]; 

*Road Indirect Local Pair 

RILP: T «- NoxtDataflBUF], opcodo[ 124] ; 

RTEMP1 <- T, cal 1 [LPPointor]; 

RILPx : T «- (RTEMP) + (T), goto[ReadTai 1 ] j 

•Road Indirect Global Pair 

RIGP: T < NextData[IBUF], opcode[125]; 

RI'EMP l T, cal 1 [GPPo in te r] ; 

RIGPx : T <■ (RTF.MP) + ( T), goto[ReadTai 1 ] ; 

"■Write Indirect Local Pair 

WILP: T <- NoxtDataflBUF] , opcode[120]; 

RTEMPI <- T, cal 1[LPPointor]; 

WILPx : T <- (RTEMP) y ( T) , go to[Wr1 toTa i 1 ]; 

•Read Indirect Local 0 

RII.O: Pfetchll LOCAL, RTEMP, 4], cal I [PSRet'J, opcodof127j; 

T <- RTEMP, goto[ReadTai 1J; 

LPPoIntor: T <- 4c; "‘offset of local 0 

T <- (Idf [ RTEMP1, 10, 4]) + (T); 

Pfotchl[LOCAL,RTEMP]; 

LPPointerx: T <• TdffRTEMPl, 14, 4], return; 

GPPointer: T *• 3c; ‘"offset of global 0 

T <- (ldf[RTF.MP 1, 10, 4]) + (T) ; 

Pfetchl[GLOBAL,RTEMP], goto[LPPointorx]; 
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*Wr1te Swapped 0 

WSO: T «- (Stack&-1), call[WSPointer] . opcodet 130].; *T <- data 

WSOx: PS to rel[MDS, RTEMP], goto[P5Ta il] ; 

*Writ,e Swapped Byte 

WSB: T <- StackSi-1, cal 1 [WSPointer], opcodef131]; 

WSBx: T <• (HoxtData[IBUF]) ^ (T), call[WSOx]; 

WSPointer; RTEMP <- T; 

T «• Stack&-1, return; *T <- pointer 

■‘Write Swapped Field 

* - * K 'k * -I* * # q p ^ q f Pilot Code * * * * * + * + + * * f* * -.a * * * * * * >k * H ‘C ■> * Ik * * * :» * * III H *H R + * : R + H * 

WSF; Stack&-t, opcodo[132]; • * 

T <■ Ncx tDa ta[ IlltlF j; * 

lu <- CycleControl <■ NextData[IDUF]; * 

*-,***••*• End of Pilot Code ********************************************* 

+■ // * * * # # * # cf arj f A 11 n C n rl n * * * * * * * * ********** * « ****** m * * * r * * * >h * * * ** * * * 

WSF: Stnck&-1, 1oadpage[0], cal1[A1ignFleldJ, Opcode[132]; * 

*//#**#*** F. n (J o F Alto C 0 d 0 * * * * * * * * * # * * * * * * * * * >r * * « * # * * * * * »> * ■* * * * * * * * + * * * <* * 

T <- (Stack&+1) + (T), cal I [FotchMDSToRTEMP]; *T <- pointer 

RTEMP1 <- T; *savo pointer 
T *- WFA[Stack&-2], gotofWFy]; 

‘"Write Swapped Double Byte 

WSDB: T <- NoxtData[IBUF], opcodo[133]; 

Stack&-2; 

r <- (Stack&+2) + (T); *T pointer * alpha 
Pstore2[MDS,Stack ]; 
goto[.+2, quadOVF]; 

WSDBx: stack&l, goto[PSTa i I ]; *back up stkp over pointer 

*Do two single stores 
Slack&+1; 

Psto re1[MDS, stack], cal 1[XncS2Tl]; 

Pstoret[MDS, stack]; 

Stack&-2, goto[P5Tai I]; "back up stkp over Isb(data) and pointer 
♦Read Field Code 

********* start of Pilot Code *«**»*•***♦****«*********»*«*•*»****»****** 
RFC; T *- Nex tDa ta[ IBUF ] , Opcodef 134]; *got offset * 

lu <- CycleControl < NextData[IBUF]; "get field descriptor * 

*-***•••• |- nc | 0 f Pii 0 t code *************i******************** *********** 

•//*****«* start of Alto Code ******************************************** 
RFC: loadpage[6], call[A1 ignField], 0pcode[134]; * 

*//.*♦***** End of Alto Code ********************************************** 

T <- ( Sl.ack&- .1) + (T), call [FetchCODEToStack] ; 
lu <- Noxtlnstl IBUF], call[RFx|; 

FetchCODEToStack: Pfetch l[CODE,Stack], return; 

♦Read F iold Stack 

RFS: T <- (Slack&-1), call[StackFD], opcode[135]; 


•//***•»•• start of Alto Code ******************************************** 
lu <■ Ce LRSpec[ 127] , sk ip[Reven]; * 

lu *• NextData[IBufj; * 

* ff Ik sh >*« * 'R Ik * F II d of Alto Code * * * 11 * '* ■* * * * * * * * * '* * * * * * & ’R # >t» * * * # * # * * # m * * ;K :k * K -R SR ;> 1R 

CycleControl «- RTEMP, goto[RFy]; 

'Write Field Stack 

WFS: T *■ Stack&-1, cal 1 [StackFD] , opcode[136]; 

*//*«**»** start of Alto Code ******************************************** 
lu <- GetRSpec[ 127] , skip[f(even] ; * 

lu <- Next.Data[ IBuf] ; * 

•//*•••*•* E n d of Alto Code'********************************************** 

CycleControl <- RTEMP, goto[WFz'J; 

*Displacement is in left byte, FD is in right byte 
StackFD: RTEMP *- T; 

T <- rsh[RTEMP, 10], return; *get displacement 
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‘Road fiyta Long 

R3L: T <- (Stnck&l) and (377c), call [StackLPx ], opcod«[137]; 

T <■ NoxtData[IBUF], call[RILPLx]; *displacomtmt from pointer 

"Write Qyte Long 

WOL: T <- (Stack&-1) and (377c), call [StackLPx], opcode[ HO] ; 

T <■ RoxtDatafCBUF], callfWILPLxj; *d isplaconient 

"Road Double Byte Long 

IIDBL: T <- (Stack&-1) and (377c), call [StackLPx] , opcodof 141]; 

r <- NextData[IBUF]; 

Do id) 1 e Road Long : Pfetch2[LP,Stack]; 
goto[ . i-2, quadOVF] ; 
lu *- HextInst[TBUF] , call[P6Tailx]; 

"Do two single fetches, the first to RTFMP 

Pfetcnlfl.P , IlFt'MP] , call [OecSlIncTl] ; 

PfetchlfLP .Stack] , goto[DoubloReadx]; 

OecSlIncTl: Stack&-1, goto[IncTlPb]; 

"Write Double Byte Long 

WOOL: T <- (Stack&-1) and (377c), ca11[StackLPx], opcodo[14Z]; 

T <- Nex tDutaf IBUF] ; 

DoublcWriteLong: Pstore2[LP, Stack], call[SQT]; 

"Do two single stores 

Pstorel[I.P,Stack], call[IncS2Tl]; *straigntfdrward increment of stkp aborts. We can speed this up by being more devious. 
Pstorel[LP,Stackj, goto[WSDBx]; 

StackLP: T <- (Stack&-1) and (37/c); 

StackLPx: I Phi <- T; 

T LPbi <- (1 sh[l.Ph i, 10]) + (T) + 1; 

LPhi <- ( f ixVA[LPhi]) or (T) ; 

T <- Stack&-1; 

LP *• T, return; 
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'Read Indexed by Local Pair Long 
RXLPL: T «- Nex tData[ IGUF], opcodef 143] ; 

IUEMP «- T, cal 1 [Loca I IP]; 

T <- (Stack&-1) + (T), gotofRILPLx]; 

•Write Indexed by Local Pair Long 
WXLPL: T < NoxtDatafIBUF], opcode[ 141]; 

RTEMP <- T, cal 1 [LocalLP]; 

T <- (Stack&-1) ^ (T), gutofWILPLx]; 

'Read Indexed by Global Pair Long 
RXGPL: (' *- NextDatafIBUF] , opcode[ 145] ; 

RTEMP <- r, cal 1 [Global LP]; ' 

T *■ (5tack&-l) i- (T), gotofRILPLx]; 

‘Write Indexed by Global Pair Long 
WXGPL: T <- NextDa taf IBLIF] , opcode[146]; 

RTEMP <- T, cal 1 [G loba l LPJ ; 

I <• (Stack&-1) + (T), gotofWILPLx]; 

’Read Indirect Local Pair Long 

IULPL: T <- NoxtDatafIBUF], opcodef147]; 

RTEMP *- r, ca 11 [Local LP] ; 

RILPLx: PfotcblfLP,Stack], goto[P5Tai1]; 

‘Write Indirect Local Pair Long 

WILPL: T < NoxtDatafIBUFj, opcode[150]; 

RTEMP T, cal l [LocalLP]; 

WILPLx: PstorolfLP,Slack], goto[P5Tai1]; 

‘Read Indirect Global Pair Long 

RIGPL: r < NoxtDatafIBUF], opcode[151]; 

RTEMP < T, cal 1[GlobalLP]; 

PfotcblfLP.Stack], goto[P5Tail]; 

•Write Indirect Global Pair Long 

WIGPL: T NexlDataflBUF |, opcode[15Z]; 

RTEMP <- T, cal 1 [G I oba 1 LP] ; 

PslorolfLP,Stack], goto[P5Tai1]; 

•Format a long pointer from a local selector,,offset pair 

LocalLP: T «- RTEMPl <■ 5c; *rtempl is a flag for decLPTR (below). 

f < (IdffRTEMP, 10, 4]) <■ (I); *note - high half of pointer is fetched first 
Pf etch l [LOCAL, L.Ph i j , go to [decLPTR]; 

Local LPy: Pf etclilf LOCAL, LP | • ‘low half 

Local LPx: T <- (LPhi) and (377c); 

T < LPhi .«* (lsh[LPhi ,10]) +(T) + 1; 

LPhi <- (fixVAfLPhi]) or (T); *if we decide to trap on references to page 3/7, do it here 
T <- ldlfRTEMP, 14, 4], return; 

•Format a long pointer from a global selector,,offsel pair 
GlobalLP: T ♦- RTEMPl 4c; 

T ♦- (IdffRTEMP, 10, 4]) + (T); ‘note - high half of pointer is fetched first 
PfetchlfGLOBAL,LPhi], gotofdecLPTR]; 

Globall.Py: Pfetchl [GLOBAL, IP ], gotof Loca 11 Px]; * 1 ow half 

decLPTR: in <■ 1dffRTEMPl,17,1]; ‘where to return (T is written here) 

T <- (AllOnes) + (T), dblgo tofLocal LPy ,G1 obal LPy, ALU//0] ; 
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•Read String Long 

RSTRL: T <-■ CNextDataflBUF], call [RWSTRLx], opcode[ 153]; 

T rshfRTF.MPi, 1], cal 1[ Fetr.hLPEoRTEMP]; 

III <• RTEMP1, dblgo to[RSTRLef t, RSTRRight, Reven], LoadPage[4]; 
EotchMNRRLPToRTEMP: T <- MNUR; 

FotchLPToRTEMP: Pfetchl[LP,RTEMP], goto[P5Rut]; * allow time to write T 

RWSTRLX: T <■■ (Stack&-1) + (T); 

RTEMP1 <- T, goto[StackLP]; *RTEMP1 «• String index 

■"Write String Long 

WSTRL: T <- CNox tData[.IBUF j, cal 1 [RWSTRLx] , opcode[104]; 

T «- rsh[RTEMP 1,1], cal 1 [Fetclil PToRTEMP]; 

RTEMP1 <-■ T, db I goto[WSrRLLeft, WSTRLRight, Reven]; ‘test low bit of RTEMP1 
WSTIlLLeft: T *■ 1 sh[Stack&- 1, 10]; 

RTEMP «- (rhmaskfRTEMP]) or (T), goto[WFLx]; 

V/STRLRight: T <- rlunas k[Stack&~ 1]; 

RTEMP <- (1 humsk[RTEMP]) or (T), goto[WFLx'J; 


■"Read Field Long 

*.**«*«** start of Pilot Code ****»**»««**«**»***«»***«*•*•*»«*»***♦«**♦** 
RFL: MNBR CNoxtData[IBUE], call[StackLP], opcode[155]; * 

111 <- CycloControl <- CNextData[ IBUE] , call[FotchMNBRLPToStack]; * 

*~®****** pj,g 0 f pilot Code **•*******•********•**»«*■*********«**•**•*»** 

*//***«»** start of Alto Code ..»***♦****«*♦*»«*****.«*«»«««**«**•«** 

RFL: loadpageffi], call I" AI ignf-'ield], 0pcode[150]; * 

RTEMP *■ f, call[StackLPJ; ' * 

T <- RTEMP, call [Eetchl.P to Stack]; * 

*//**•••*• End of Alto Code *»*»*•**»***»»*«***«**»**■****»»»»*«**«»**♦♦•*« 

RFLx : 1u <- Ncxtlns t[ IBUE] , callfRFx]; 

Ee tcliMNBRLPToStack : T «- MNBR; 

EetcbLPToStack: Pf otchlfl.P, Stack], goto[P5Rot]; * allow time to write T 
"Write Field Long 

*-*****♦# S t o r t of Pilot Cod g *•**•********•>#**■■>'***#*****'*###***#*>>*****• 
WFL.: MNBR <- CNextData[IBUF], cal 1 [StackLP], opcode[106|; * 

lu <- Cycl eCont rol <- CNoxtData[IBUE], call [FetchMNBRLPToRTEMP] ; * 

*-*«****» End of Pilot Code •••****••»***•••••••*•**»********••**•******* 


*//•••*•*• start of Alto Code **•**••••»**•*•*•****• 
WFL: loadpage[G], ca11[AIignField], Opcode[166]; 

RTEMP < T, call[StackLP]; 

T «- RTEMP, cal I [ FetchL PToRTEMP] ; 

*//***»••* End of Alto Code ************************ 

RTEMPI <■ T; 

WFf y : T <- WFA[Stack&- 1] ; 

RTEMP (WIB[RTEMP]) or (T); 

WE Lx : T <- RTEMP 1; 

Pstorel[lP,RTEMP], goto[P5Tail]; 

"Road Field Stack Fong 

RFSL : T <- Stack&-t, cal I [ r toRTEMP] , opcodo[15/]; 

Cycl eCont rol <- RTEMP, call [ St ackt.P] ; ' 

T «- rsh[ RTEMP , 10] ; 


•#**••••* start oT Alto Codo •*»******•*»**«•*****»*« 
lu •- GetRSpec[127] , skip[R even]; 
lu «- NextData[ IBuf ]; 

*//**■"**** End of Alto Code »«****■■*♦************»»**** 


m ♦ Ik * 


4 * * ‘I # 



Pfetc111[LP,Stack], goto[RFLx]; 

*Writc Field Stack Long 

WFSL : T r Stack8f-1, call [TtoRTEMP] , opcode[160]; 

Cycl eCont ro I <• RTEMP, call [StackLP] ; ' 

T <- rsh[RTEMP, 10] , cal 1 [FetchLPToR TEMP] ; 

*//**•***» start of Alto Code •****•*•»•****•**•**•*****«***«*****»******* 
lu «- GetRSpoc[ 127] , skip[R even]; * 

lu <• NextData[IBuf]; * 

# If * ■» sk # * * * End of Alto Code * * * * * * >* * ***** * * # :* ** * * *4**.+*4** * * * * .* ***** * * ♦ * 4 * 


RTEMPl <- T, goto[WFLy]; 


TtoRTEMP: 


RTEMP <- T, return; 
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•Lengthen Pointer 

01.P: T <• Slack, opcode[161]; 

gotofPushTPO, ALU//0], T «- rshfMDShi , 10]; Hast for NIL 
T *■ 0 c; 

PusliTPS: 

in <- NextlnstflBuf]; 

Stack&+1 «- T, NIRET; 

•Storo Local Double Byte 

SLOB: T <■ NoxtDa tafIBUF] , opcodef162]; 

Pstoro2f'L0CAL,Stack], callfSQr]; 

Psto re If LOCAL,stack] , cal 1[IncS2Tl]; 

PstorcIf LOCAL,Stack] , gotofWSDBx]; 

•Store Global Double Byte 

SGDB: T «- NoxtDataflBUF], opcodef 163] ; 

P s t. 0 ro2 [ G LOB At, St ac k ], ca 11 [ SQT ]; 

Ps to roIfGLOBAL.stack], call[IncS2Tl]; 

PstorolfGLOBAL,Stack], gotofWSDBx];' 

•Push 

PUSH: Stack&H, goto[P5Ta i I], opcodef164]; 

*Pop 

POP: Stack& l, go tofP5Tai1], opcodef165]; 

•Exchange 

E.XCII: T «- Stack&-1, Opcodef 106]; 

MNUI1 <■ Stack, Stack <- T, NolloglLockOK; 

T < MNBR, gotofPush!P5]; 


Start of Pilot Code 




•Link B.yCo - equivalent to PUSIIX; LIB; SUB; SLO;, X is above stkp 
LIMKB: T < NoxtDataflBUF], opcodo[167]; 

Stack)!, 1 1; 

Stack (Stack) - (T); 

PstorelfLOCAL, Stack, 4], go to[P5Tai1]; 

*=««***** End of Pilot Code *»*»«»*»*»»********»»»***»*»»»«»***»» 


*//******* Start of Alto Code *«•*••****•*•»*»**»»•*»•»*••••»»•••♦ 
•Link Byte - equivalent to PUSHX; LIB; SUB; SLO;, X is above stkp 
LINKB: T < NoxtDataflBUF], opcode[167]; 

Stack&rl, LoadPagefC]; 

Slack <- (Stack) - (T), gotopfINKBP6]; 

OnPagof6]; 

LNKBP6: PstorelfLOCAL, Stack, 4], gotofP6Tai1]; 

OnPagof5]; 

*//•*•***• End of Alto Code •••••*••*•**•*•»•«••*•**••*«•••*••**** 



*DupIicate 

DUP: T <■ Stack&-1, opcodefl/0]; 

Stack&+2 <- T, gotofP6Tai 1 ]; 


*=**•***• Start of Pilot Code *****»**•»»***»*****»«**»♦•*»*•***•*»»*• 

•NIL Chock 

MILCK: T < Stacks-t, Opcodef171]; 

NILCKx: Stack&rl, dbigotofdoTrapPG, P5Tail, ALU^O], T < sPointerFault; 


•NIL Chock Long * 

NILCKL: T ♦- Stack&-1, opcodefl72J; * 

lu <- (Stack) or (T). go tof NILCKx] ; * 

•Bounds Chock - Trap if (TOS-1) >= TOS (unsigned) * 

I1NDCK: Stack&-1, opcodcfl/3]; * 

T <- Stack&H; ♦ 

lu *- (Stack&-1) - (T) - 1; • 

dblgotofdoTrapPS, P5Tail, NoCarry], T *- sBoundsFault; * 

•=******• End of Pilot Code «*♦•***•••****•»•**»*«•*•**»**•••••••*»*•••»* 


•//••••••• Start of Alto Code •*••*••**•**••*•**•*••*•*••••*•••••*•••••••• 

NILCK: gotofPSTail], Opcodefl7t]; • 
NILCKL: gotofPBTai1] , opcodofl/2]; * 
UNDCK: Stack&-1, goto[P5Tai 1], opcode[173]; • 
•//•**•♦•* End of Alto Code «***•**«***••••••**••••*•*••*•*•••••*•*•••*•** 


♦Unimpleinented opcodes on page 5 

T <- sUnimplemented, gotof do ErapP5] , opcodef 174]; 
T <- sUn impl emeu tod , gotof doTrapP5], opcodo[175]; 
T <- sUnimpleinented, gotof doTrapP5] , opcodef 176] ; 
T «- sUn implemented , gotof doTrapP5] , opcode[177J; 

doTrapPB: LoadPagefopPage3]; 

gotopfkfer]; 


end; 
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insert[dO I ang]; 

NOMiDAS[NIT;LANGVE RSION;MULTDIB; 
insert[GlobalDofs]; 

TH LE[xpr‘J; 

* Process Microcode; Last Modified by Sandman on April 6, 19/9 9:01. AM 

*PSB format 

MC[C1canUpOf fsot, 1]; 

MC[TimeOffsot, 2|; 

MC[FlagsOffsot, 3]; 

MC[ I r ameO f f s e t, 4 ]; 

MCfPriorlty, 7]; 

MC[Wa itingOnCV, 10]; 

MC[AbortPend iiu), 40]; 

MC[TimeoutAllowed, 100]; 

MC fF.ntorFailed, 100000]; 

MC[SizoPSD, 5]; 

•Monitor Lock format 
MC[l.ockBit, 100000]; 

•Condition Variable format 
MCfWWBit, 100000]; 

* Constants 

MC[C1eanQoeuel, 0]; 

MC[CleanQueue2, 1]; 

MCf NegI ii f ini ty, 100000]; 

MCfCVBase, 40]; 

MC[ TimerBi t, 20]; 

MC[TimeLocation, 344]; 

•Dispatch bas address 

SET[ProcessDisp, LSHIfT[prPage,10]]; 

X 


PKFlags holds opcode dispatch values and general flags. Its interpretation is: 


bit 0 


0 => Clean Queue 1 
1 => Clean Queue 2 


bit 10 0 => Requeue not done 

1 => Requeue done 

bits 10,17 0 => Notify 

1 => Broadcast 

2 => Naked Notify 

3 => not used 


bits 12-15 Opcode Dispatch 


All flag constants except NakedNotifyFlags are cycled right 1 in order 
to set bit 0 if necessary. 


•flag values 
MCfMEFlaqs, 0]; 
SET[MEloc, 0]; 

MCIMRLF1ags, 21]: 
SET[MRtloc, 2]; 

MC[MXWF1ags, 51]; 
SETfMXWloc, 5]; 

MCfMXDFlags, 61]; 

SET|MXD1oc, 6]; 

MC I’NOTIFYFl ags, 100]; 

MC[BCASTF1ags, 102]; 
SET[Waketlead 1 oc, 10]; 
MC|REQF1ngs, 130]; 

SETf REQloc, 13]; 
MC[NakedNotifyFlags, 2]; 
MC[RegueueOccured, 200]; 


* Dispatch to 0 

* Dispatch to 2, Clean Queue 2 

* Dispatch to 5, Clean Queue 2 

* Dispatch to G, Clean Queue 2 

* Dispatch to 10, Clean Queue 1, Notify 

* Dispatch to 10, Clean Queue 1, Broadcast 

* Dispatch to 13 

* Clean Queue l, Naked Notify, not cycled 

* Requeue occured, not cycled 
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ONPAGE[opPageO]; 


*ME 
@MF.: 

G0T0[CheckLong1], 

PRFlags *■ (HEFlags), opcode[l]; 

* Monitor Lock 

*MRE 

0MRE: 

GOTO[ChockLong2], 

PRFlags <- (MREFIags), opcode[2J; 

* CV, Lock 

*MXW 
@MXW: 
MXWx: 

PRFlags «- (MXWFlags) , opcode[3]; 

T <- Stack&-1; 

G0T0[CheckLong2], Process *- T; 

* Time, CV, Lock 

*MXD 
QMXD: 

G0T0[CheckLongl], 

PRFlags <- (MXDFlags), opcode[4]; 

* Monitor Lock 


"NOTIFY 

0NOTIFY: 

GOTO[CheckLongl], PRFlags *- (NOTIFYF lags ) , opcode[S'J; * CV 

*!3CAST 

0DCAST: GOTO[Chockl.ongl], PRFlags <• (BCASTFlags), opcodo[G]; * CV 

"•REQUEUE 

(“REQUEUE: 

PRFlags *- (REOFIags), goto[MXWx], opcode[7]j * Process, Q.l, Q2 

CheckLong2: 

T <- (373c); * Stkp value for two long pointer operands (4). 

T <- (uStkp) XOR (T); * Check for stack sixo of 4. 

T *- RIIMaskJ MOSlii] , dblgoto[Short2, Long2, ALU//0]; 

CliockLongl: 

T < (375c); * Stkp value for one long pointer operand (2). 

T <- (uStkp) XOR (T); * Check for stack size of 2. 

T »- RIlMas k[MDSh i ] , dblgoto[Shortl, Long!, ALU//0]; 


5hort2: 

Qucue2hi <- T, cal 1 [ F i xQuouo2 ] ; 

T *• RilMask[MDSh i], goto[Shortl |; 

Long2: 

T <- Stack&-1; 
Queue2hi «- T, 

T <• Stack&-1, 

cal 1[FixQueuo2]; 
goto[Shortl|; 

Long 1: 
Shortl: 

T <- Stack&-1; 
Queue 1 Hi <- T, 

goto[FixQueuol]; 

FixQueue2: 



T < Quoue2hi <- (1 sh[Quoue2h i , 10]) + (T) + 1; 

Quoue2hi <- ( f ixVA[Queuo2hi]) or (T); 

T *• Stack&-1; 

Queue2 <- f, return; 

FixQueuel: 

T *- Stack& l, TASK; 

Queue 1 <- T; 

111 «- (Queuelhi) OR (T); 

T <- Queuelhi, skip[alu = 0]; 

f <• Queuelhi <- (1 sh[Queuolhi , 10]) + (T) + 1; 

Queuelhi <- (f ixVA[Quouelhi ]) or (T), goto[ProcessOps]; 


ProcessOps: 

LoadPage|’ p rPage]; 

Di spatchj'PRT1 ags , 11, 4], gotop[ProcessDispatch]; 
OnPage[prPage]; 

ProcossDispatch: 

PRFlags «- RCY[PRF1 ags, 1], DispfMEnter]; 



MesaP,mc 


3-MOV-79 19:15:53 


Page 3 


* Monitor Enter; 

+ 

* Input 

* Quouel Base register pointing at monitor queue 


MQ 


Temps 


process handle 


Constants 

CurrontPSB 21B, address of CurrontPSD 

lockBit 100000B, lock bit of Monitor l.ock 


MEnter: T <- (CurrentPSIJ), cal I[QueuelToMQ], AT[ ProcossD i sp , ME'loc]; 
III <- MQ, qoto[MF.Locked, f! >= 0]; 

MQ «- (MQ) AMD MOT (LockBit), cal 1[MQToQuouel]; 

MRENoAbort: 

Stack&>l ♦- 1C; * even location 

PrTail: LoadPago[opPageO]; 
goto[P4Tai1]; 


MELockod: 


PFotchl[PBase, Process], gotofMREnterFai led] ; 


* 

Monitor Re Enter 



* 

Input 

Queue 1 

Base register pointing at monitor queue 

* 

Queued 

Base register pointing at condition 

queue 

* 

Temps 

PBase 

Base register of PSBs 


* 

Process 

process handle 


* 

RTeinp 1 

temp 


* 

Constants 


* 

LockBit 

100000B, lock bit of Monitor Lock 


* 

CleanUpOffset 

1, offset of cleanup link in PSB 


* 

FlagsOffset 

3, offset of flags and priority in 

PSB 

* 

Cu rrentPSB 

2111, address of CurrentPSB 


* 

sP rocoss r rap 

1711, offset of sProcessTrap in SD 



MREnter: 

T <- (ClirrentPSB), cai i [QueuelToMQ] , AT[P rocossD i sp, MREloc]; 
caI I[PBaseToPi ocoss |; 

Hi <- MQ , goto[MREnterTaiIed, R >= 0]; * ignore ww bit 

UseCTask, cal 1[ClcanUpQueue]; * Clean up Quouel 

MQ (MQ) AND NOT (LockBit), cal 1 [MQToQueuel]; 

T <- (Process) ■- (CleanllpOf f set) , cal I [/e rol'oPBase J; 

T <- (Process) *■ ( F I agsOf f set), call [PBaseToRTomp 1] ; 

III <■ (RTempl) AND (AbortPcnd ing); 
go to[MRENoAbort, a In = 0 |; 

T <- ( sProcessTrap ) ; 

PRTrap: LoadPage[opPago3J; 
gotop[kfcr]; 

MREivterFa i 1 ed: 

T «- Queuel; 

Q 1101102 «- T, TASK; 

T <- Qtieuelhi; 

Queue2hi <- T; 

T <- (Process) + (FlagsOffset), call[PBaseToRTempl]; 

Queuelhi <- (ReadyQhi), cal 1 [ReadyInQiieuo 1]; 

RTempl <- (RTempl) OR (Elite rFai 1 ed), cal 1 [ RTemplToPBase ]; 

UseCTask, call[RequeueSub]; 

T <- PRFlags, goto[ReSchedule]; 
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* Monitor Exit, and Depart; 

* Input 

* Queue 1 Base register pointing at monitor queue 

* 

*.*iti>H***i|^*ift«***«*«i**j*«*>»*$H^4i»4*#**i*4#.»««(l<*1>*>»#«*«*:M4i»*>l'*«#**‘k«***«*«-t4* 

MXDepart: 

UseCTask, call [ExitMon], AT[ProcessD1sp, MXDloc]; 

T «- PRFIags, goto[FieSchedule]; 


Exit Monitor; 


Input 

Quouol 


Base register pointing at monitor quouo 


Temps 

PBase 

MQ 

Process 
EMU ilk 


Base register of PSBs 
process handle 
process handle 
return link 


* Constants 

* LockBit 100000B, lock bit of Monitor Lock 

ExitMon: 

T <- APC&APCTask, call [QucuelToMQ] ; 

EMLink «- T; 

T <- MQ <- (MQ) AND NOT (LockBit); 
goto[EMUnlock, alu = 0|; 

PfctchlfPBase, Process], cal l[Read.yInQueue2]; 

UseCfask, cal I[RequeueSub]; 

cal 1[Queue IToMQ ); * Requeue may have changed MQ 

goto[EMUnlock]; 

EMUn lock: 

MQ <- (MQ) OR (LockBit); 

PStorol[Queuel, MQ, 0], call[PRRot]; 

APC&APCTask <- EMLink, goto[PRRet]; 
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* 

Monitor 

Exit 

and Wait; 


« 


Input 



4 

Quoue2 


Base register pointing 

at condition queue 

4 

Quouel 


Base register pointing 

at monitor queue 


Process 


Timeout value 




Temps 



* 

PBase 


Base register of PSBs 


* 

MQ 


process handle 


* 

PRT iine 


holds timeout value 


* 

RTemp1 


process handle 



Constants 

WWBit 100000B, ww bit of Condition 

LockUit LOOOOOB, lock bit of Monitor Lock 

CleunUpOffset 1, offset of cleanup link in PSD 

fimcOffset 2, offset of flags and priority in PSB 

FlagsOffset 3, offset of flags and priority in PSB 

WaitingOnCV :L0B, WaitingOnCV bit of PSB 

AbortPending 40B, AbortPending bit of PSB 
TimeoutAllowed LOOB, TimeoutAl lowed bit of PSB 
CurrontPSB 21B, address of CurrentPSB 

TimeLocation 344B, address of Timeout time in Memory 


MXWait: T < Process, AT[ProcossDisp, MXWloc]; 

I'It Time *• T, UseCTask, cal 1 [CieanUpQuoue] ; 

T *• QTemp, call [SwapQTompAndQ2] ; 

UseCTask, call[ExitMon |; 

T <- (CurrcntPSfi), cal 1 [PBaseToProcess]; 

T <- (Process) + ( FIagsOf fsot), cal 1[PBasoToRTemp1]; 
lu < (RTompl) AND (AbortPending); 
gotofMXWAbort, alu // 0]; 

PFolehlfQTernp, MQ, Oj; 
call[PR Rot J; 

MQ <- (MQ) AND NOT (WWBit), goto[MXWOntoCV, R >= 0]; 

PStore 1[QTomp, MQ, 0|, call[PRRet]; 

T < PRFlags, go to[ReSchedule]; 

MXWOntoCV: 

111 «- PRTime; 

RTompl <- (RTcmpl) OR (WaitingOnCV), gotof MXWIIavoT ime, alu = 0]; 
T <- (TimeLocation) , cal 1 [PBasoToCurrentTimo] ; 

T «- CurrentTime : 

PRTime <- (PRT ime) 1 - (T) ; 
goto[MXWIIaveTimox, alu If 0]; 

PRTime *- (PRTime) + 1; 

MXWIIaveTimo: 

nop; 

MXWHavcTimex: 

Queuolbi < (ReadyQbi), call[ReadyInQueuel]; 

I < Qlomp, call[SwapQTompAndQ2]; 

I < (Process) + (FIagsOffsot), cal 1[RTemp1foPBase]; 

UseCTask, ca 11 [ Re quo lie Sub] ; 

f <- (Process) + (T imeOffset), call [PRT imeToPUase] ; 

T <- PRFlags, goto[ReSchedule]; 

MXWAbort: 

T «- PRFlags, goto[ReSchedule]; 

SwapQTompAndQ2: 

MNBR <-■ Queue2, Quoue2 <• T, NoRegILockOK; 

T <- MNBR; 

QTemp <- T; 

T <- QTemphi; 

MNBR <- Quoue2hi, Queue2bi *■ T, NoRegILockOK; 

T <- MNBR; 

QTomp hi <- T, return; 
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* 

Notify Broadcast; 


* 

* 

Input 

Queuel 

Base register of 

queue to bo notified 

* 

Temps 

PBase 

Base register of 

PSBs 

Hi 

MO 

process handle 


* 

RTempl 

process handle 


« 

Process 

process handle 


H. 

PR fimo 

Did something 


* 

PRF1ags 

flags 



WWBit 


Constants 

10000011, ww bit of Condition 


Nog Inf inity 
FIagsOf fse t 
Wa i t ingOnCV 


100000B 

3, offset of cleanup link In PSH 
10B,. Wait IngOnCV bit in PSB 


Wakeiload: 

UsoCTask, cal I[CleanUpQueue], AT[ ProcessDisp, Wakolloadloc]; 

WIILoop: 

PRTime *■ (Zero), cal 1 [Queue IToMQ'j; 

MO *- T <• (MO) AND NOT (WWBit); 

In *- L.DF[PRF lags, 16, 1], goto[WIIF.x i t, a'lu - 0‘J; 

T «- MO, cal I[PBaseToProcess]; 

r <- (Process) ( FI agsOf f set), call [PBasoToKTcmp L j; 

PRfime *- (lc), cal 1 [ Ready InQiiouoZ] ; 

RTempl *■ (RTempl) AND NOT (WaitingOnCV), cal 1[RTempIToPBase ]; 

UsoCTask, ca11[RcqucueSub]; 

lu <- PRFIags, gotofWIILoopx, R odd]; 

lu <- LDlfPRFlags, 10, 1], goto[WIIExit]; 

WIILoopx: 

goto[WIILoop ]; 

WIlExit: f *■ PRFIags, goto[ ReSchedul e, a 111 = 0]; 

lu <- PRTime, dblgotofSetWWB it, MakedNotifled, R even]; 
SctWWBit: 

MO <- (WWBit), cal 1[MQToQueuol]; * even location 

NakedNotif ied: 

IntLevel <- (IntLovel) + 1, LoadPaqerOpPageO]; * odd location 

goto[ChockCV]; 
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Requeue; 




calling 

instruction must include UseCTask 

* 


Input 


* 

Queue! 


Base register pointing at queue 

+ 

Queue2 


Base register pointing at queue 


Process 

Output 

process handle 

* 

ReSched 


BOOLEAN 

• 


Temps 


* 

PBaso 


Base register of PSBs 

* 

Prev 


process handle 

* 

RTemp 


Process.link until insert, then Process.priority 

* 

RTempl 


process handle, priority 

* 

RTemp2 


process handle, priority 

* 

RLink 


return address 


* Constants 

* CleanUpOffset 1, offset of cleanup link In PS!) 

* FlagsOffsot 3, offset of flags and priority in PSB 

* Priority 7, priority bits 

* ilequeueOccurod 200B 

RequeueOp: 

UsoCTask, call [RequeuoSub], AT[ProcessDisp, RF.Qloc]; 

T <- PRFlags, goto[ReScliedulo]; 

RoqueueSub: 

f *- APC&APCTask; 

RL. ink <- f; 

T * Process, can[PBasoToRTemp]; 
lu <- (RTemp) - (T); 

lu <- Queuclhi, goto[RQGotPP, alu = 0]; * only one process 

goto[RQLoopl, alu = 0]; * Queucl NIL, T ■ Process 

PFetchl[Queuel, Prev, 0], callfPRRotj; 

T <- Prev, goto[RQLooplx]; 

RQLoopl: 

Prev < T; 

RQLooplx: 

Prev T, call[PBaseToRTempl]; 

T <• RTemp 1; 

1 li <- (Process) - T; 
go to[ RQLooplx , alu // 0]: 

T <- Prev; 

ca11[RTempToPBase]; * RTemp has Process.link 

RQFixCV: 

lu <- QueueIhi; 

T <- (Process) + (CleanUpOffset), goto[RQIIaveQ 1 , alu // 0]; 
PStorel[PBase, RTempj; 
call[PRRet]; 
goto[RQInsrt]; 

RQCotPP: 

T <- I’rev <- (Zero), goto[RQF i xCV]; 

RQHaveQl: 

PFetchl[Queuel, RTempl, 0^|; 

T «- Process, call [PRRet J; 
lu <- (RTempl) - (T); 
go to[ RQIn s rt, alu // 0]; 

PSto rel[Queuel, Prev, 0"|; 
cal I[PRRetj; 
goto[RQIns rt]; 

RQIns rt: 

PFetcbl[Queuc2, Prev, 0], call[PRRet]j 
111 <- Prev; 

T <- Process, goto[RQNi 1PP , alu = 0]; 

T t- (Process) + ( FI agsO f f set), cal 1 [PBaseToRTomp] ; 

T <- (Prev) + (FlagsOffsot), call (PBaseToR Temp 1] ; 

RTemp ♦- (RTemp) AND (Priority); 

T <- (RTempl) AND (Priority); 
lu «- (RTemp) - T - 1; 

T «- Prev, goto[RQFixQ2, alu < 0]; 
goto[RQLoop2]; 

RQLoop2: 

Prev *- T, call[PBaseToRTempl]; 

T (RTempl) + (FlagsOffsot), call[PBaseToRTemp2]; 

T «- (RTemp2) AND (Priority); 
lu *■ (RTemp) - T - 1; 

T <- RTempl, dbl goto[ RQIns rtllero, RQLoopZ , alu >= 0]; 

RQFixQ2: 

PStorel[Queue2, Process, 0], ca11[PRRet]; 

RQIns rtllere: 

T *• Prev; 

call[PBaseToRTempl]; 

T <- Process, call [ RTemp IToPRase]; 

T <- Prev, call [ProcessToPBase'J ; 

RQRet: T <- (Process) + (TimeOffset), call[ZeroToPBase]; 

APC&APCTask *- RLink; 

PRFlags «- (PRFlags) OR (RequeueOccured), return; 

RQNilPP: 

T <- Process; 

call[ProcessToPBase]; 

PStorel[Queue2, Process, 0], goto[RQRet]; 
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>Y 1(1 1* * * ******** ik ***** # th ***«**ii«**i!<***i|i***ik**i|:titifi**ttii{<«**:fi* ******* *1 


CleanUpQueue; 

llris routine cleans up a queue which may possibly 
have been left in a mess by Requeue. 


calling instruction must include UseCTask 


+ 1* H ? !)t 


* 


Input 



PRFlags 


even => clean Queuel, odd => clean QuouoZ 



Temps 


* 

PBase 


Base register of PSBs 

* 

RTomp 


process handle 

* 

RTemp 1 


process handle 

* 

MNBR 


process handle 

* 

RLink 


return address 

* 


Constants 

* 

WWB i t 


1000000, ww bit of Condition 

* 

C l oanllpOf f set 

1, offset of cleanup link in PSD 

** 

I************** 

d if * # * * * 

* ||| ************** id* **************** ****** *-k >|f >!• 


CleanUpQuoue: 

T <- APC&APCTask ; 

RLink *■ T, call[CQueueToRTerop]; * got pointer to tail 

RTomp <- (RTemp) AND NOT (WWflit); * ignore ww bit 

T <- (RTemp) + (CloanllpOffset), gotofCURet, alu ~ 0]j 
Pfetchl|PHase,RTempi], call [PRRet]|; * get head of queue 

111 <- f <- RTemp 1; 

lu <- (RTemp) - (T), goto[CURetx, alu-0]; 

RTemp *- T, goto[CUEmpty, alu = 0]; 

CULoop: T <- (RTemp) + (CleanUpOffset), ca11[PBaseToRTempl]; * get head of queue 

1 u T *- RTemp 1; 

lu <- (RTemp) - (T), goto[CUFoundHead, alu = 0]i 
goto[CUEmptyx, alu - 0]; 

RTemp <- T, goto[CUI.oop j; 

CUCmpty: 

RTomp <- (Zero), goto[CUFixCV]; 

CUEtnp tyx: 

RTemp «- (Zero), goto[CUFixCV]; 

CUFoundHead: 

MNDR «- T «- RTemp; 

CULoopZ: 

RTemp <- T, cal I [PBaseToRTomp 1J ; 

T *• RTemp 1; 
lu <-- (MNBR) - (T) ; 
go to[CULoopZ , alu II 0]; 
nop; 

CiJFixCV: 

ca l 1 ( RTcinpToCOueuol; 

CURet: APC&APCTask * RLink, gotofPRRot |; 

CURctx: APC&APCTask RLink, goto[PRRotj; 


CQueuoToRTemp: 

lu «- PRIlags, DDLGoto[QueueIToRTemp, Quoue2ToRTomp, R >= 0|; 
RTempToCQueue: 

lu *■ PRFlags, DBLGoto[RTempToQueuol, RTempToQuoue2, R >= 0]; 
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* * * * * * if * -M * * * + 1)! * * * * * * * * # * * * iJj :)( « + + i* .K *S <* * * * * sji 'H $ >•< ■(« * >!i « 'p * ij< 1* * 91 * * -* 4 ; * * $ * :U * * # 

Reschedule; 


T 


Input 

contains PRFiags 


Temps 

PBase 
RTemp 
RTeinpl 
MNBR 
RL ink 


Base register of PSBs 
process handle 
process handle 
process handle 
return address 


Constants 

FnterFailed 1000000, FnterFailed bit of PSB 
CleanllpOf fset 1, offset of cleanup link in PSB 

FlagsOffset 3, offset of priority and flags in PSB 

FrameOffset 4, offset of frame in PSB 

CleanllpOffsot 1, offset of cleanup link in PSB 

Priority 7, priority hits in PSB 

StkPOffsot 10B, offset of stack pointer in state vector 

DestOffsot 11B, offset of dest in state vector 

CurrentPSB 21B, Current process 

ReadyQ 22B, Ready queue 

CurrentState 23B, Current state 


Reschedule: 

gotofPrTail, MoH2Bit8]; 
nop; 

IntReSch: 

T (CurrentState), ca 11 [ PBasoToRTemp] ; 
l.oadPago[OpPago3]; 
ca 11 p[SavPCI 11 F rame] ; 

T <- Rlemp, LoadPage[xfPagel]; 

xfTemp >- T, UseCTask, cal lp[SaveState]; 

T < (CurrentPSB), call[PBaseToRTempiJ; * RTeinpl *- currentPSB 
T <- (RTeinpl) + (FrameOffset), cal I [Local ToPBase] ; 

IdlelntRS: 

T «- (ReadyQ); 

call [PBasoToRTemp l]; 

lu <• T < RTeinpl; 

lu <- xfWDC, goto[NoneRcady, alu = 0]; 

call [PBase ToProcess j ; * Process «- ready 1 i st. 1 ink 

* setup for new process 

T <- (Process) * (FlagsOffset), call [PBaseToRTeinpl]; 

RTemp < (xfAV); 

r (RTemp) +■ (FirstStateVector), cal 1 [PBaseToR letup]; 

MNBR <- RTeinpl, TASK; 

RTeinpl <- I < (RTeinpl) AND (Priority); 

RTeinpl <- ( LSIl[ RTemp 1, 2 |) + (T); 

T < (ISII[RTeinpl, 1]) + (T), TASK; 

RTemp < (RTemp) + (T); 

T <■ MNBR, goto[NoFntorFuiled, R >= 0]; 

RTeinpl < T; 

RTeinpl *- (RTeinpl) AND NOT (FnterFailed); 

T (Process) '■ (FlagsOffset), call[RTemplToPBase]; 

T <- RTemp, call[ZeroToPBase]; * s.tack[0] <■ 0; 

RTeinpl <■ lc; * stkp «- i 

T *■ (RTemp) *■ (StkPOffsot), cal 1[RTemplToPBase]; 

NoEn terl-a iled: 

T (Process) 1 - (FrameOffset); 
cal 1[PBaseToRTempl]; 

T <- (RTemp) + (DestOffsot), cal 1[RTemplToPBase]; 

T <- (CurrentPSB), ca I I [ProcessToPBaso] ; * currentPSB <- process 

T <- (CurrentState), cal I [ RTempToPBase] ; 

T <- RTemp, LoadPage[ xf Pagel ] ; 
xfTemp «- T, gotop[ LoadSta te] ; 

NoneRead.y; 

T *■ (sWakeupError) , goto[PRTrap, alu 7/ 0]; 

RTemp <- (Zero); 

PRFiags <- (Zero), ca 11[IdleLoop]; * clear PRFiags in idle int 

IdloLoop: 

goto[IdloInt, IntPending]; 

PRRet: return; 

Tdtelnt: 

LoadPage[0pPage3]; 

T (GotRSpec[103]) XOR (377C), gotop[MIPendx]; 
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PBaseToProcess: 

PFetr,hl[PBase, Process], return; 
Process ToPBase: 

PStorel[PBase, Process], return; 


PBaso ToRTemp: 

PFotchlfPBaso, 
RTempToPRase: 

PStorol[PBase, 

PBasoToRTompl: 

PFetchlfPBase, 
RTcmplToPBase: 

PSto rel[P0ase, 


RTemp], return; 
RTemp], return; 

RTemp1], goto[PRRet]j 
RTempl], goto[PRRet]; 


POasoToRTemp2: 

PFetchl[PBase, RTemp?], return; 


OueuelToRTemp: 

PFetchl[Oueuol,RTemp,0], return; 
RTempToQueuol: 

PSto rel[Queuel,RTemp , 0], return; 


Queue2ToRTcmp: 

PFetchl[Quouo2,RTemp,0], return; 
RTcmpToQuouo2: 

PSto re1[Queue?,RTemp , 0], return; 
Queue 1ToMQ: 

PFotchl[Queuel,MQ,0] , goto[PRRot]; 
MQToQueue1: 

PSto ret[Queue1,MQ,0], goto[PRRot]; 
PRTimcToPBase: 

PStoreL[PBase, PRrimo], return; 

Zo roToPBase: 

PStorel[PBase, R7.ero], return; 

LocalToPBase: 

PStorel[PBase, Local], return; 

PBaseToCur ren LTitne : 

PFctchl[PBase, CurrentTime], return; 


ReadylnQueue1: 

Queuol <- (ReadyQ), return; 

RoadyInQuoue2: 

QueuoZhi <- (RoadyQIri); 
Quoue2 *- (ReadyQ), return; 
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* Interrupt Processing; 


Input 

WW Makeups Waiting register 

TickCount number of ticks until scaning PSBs required 

CurrontTime current tlmo 


Temps 

IntLovol 
IntType 
I Temp 
ITcmpl 


pointer to CV array elements 
even => idle loop interrupt 
temp 
temp 


* Constants 

* WWBit 1000003, ww bit of Condition 

* TimeOffsot 2, offset of time in PS0 

* FlagsOffset 3, offset of flags and priority in PSB 

* WaitirigOnCV 10B, WaitingOnCV bit of PSD 

* NakedMotifyFlags 

* 

•* + IN + * + * v m :h « # >f< # * ❖ * * * * * * 1* * * * # •+ ‘k * * 'k ■» * ik * R M * * * * * * * •« * * * k * + >k * * >b + * * * ik * * ik * * * * * 

* Interrupt Processing 


onpage[OpPageO]; 


Elite rrupt: 

WW <- (WW) AND HOT (TimerBit), goto[TinierInte rrupt, alu II Op, 
IntLovol «- (CVBase); 

CheckCV: 

cal l [TliisCV]; 

ThisCV: WW <- RSHfWW, 1], goto[IntTh isCV, R odd]; 

gotoflntDone, alu - 0]; * load page for done 
tntLevel <■ (IntLovol) + 1, return; 

IlltThisCV: 

T IntLovol, Call[IntPBasoToQuouel]; 
lu <■ Queue 1; 

Queuellvi «- (lleadyQhi), goto|DoNotliing, alu = 0]; 

LoadPagc[prPage]; 

PRFlags <- (PRFlags) OR (NakedMoti fyFIags) , goto[WakeIlead]; 
Dollothing: 

JntLevol <- (IntLevol) + 1, goto[CheckCV]; 


IntDone: 

LoadPagefprPago]; * load page for done 

lu <- Intfype, db1gotop[IntReSch, IdlelntRS, R odd]; 

Timerlnterrupt: 

TickCount <- (TickCount) - 1; 

IntLevol ' (CVBase), skip[alu = 0]; 

go to[CheckCV]; 

ITemp (xfAV); 

T «- ITemp <- (ITemp) + ( F i rstP rocess) , call [ Int PBasoToProces s] ; 
I «- (l Temp) * 1; 

PFetch l[PBase, ITompl]; 

T *• T imeLoca t ion , ca 11 [ IntPBaseToCurren t T line]; 

CurrentTimo «- (CurrontTime) + 1, cal 1[IntCurrentTimeToPBase]; 
nop; 

TLoop: T *- (Process) + (TimeOffsot); * can't have call before this 
PPetclilfPBaso, ITemp], call[P4Ret]; 
lu ♦- T <- ITemp; 

lu <- (CurrentTimo) - (T), goto[CanTimeout, alu // 0]; 

Cliec kEnd: 

T *- Process *■ (Process) + (SizePSB); 
in <- (ITompl) -(f); 

TickCount <- (3c), goto[TLoop, aiu >= 0]; 
goto[CheckCV]; 

CanTimeout: 

goto[TimeOut, alu = 0]; 
go to[CheckEnd]; 

Timeout: 

Qtieue2 «• (RoadyQ); 

Queue 1111 «- (Hero); 

T <- (RZero) + 1, LoadPage[p rPage]; 

Queue2Hi <- T, UseCTask, cal I [RequeueSub]; 

T *■ (Process) + (FlagsOffset), cal 1[IntPBaseToQueuel]; 

Queuel <- (Queuel) AND HOT (WaitingOnCV); 

PStorel[PBase, Queuel], call[P4Rot]; 
goto[ClieckEnd]; 

IntPBaseToProcess; 

PFetchl[PBase, Process], goto[P4Ret]; 

IntPBaseToQueuol; 

PFetchl[PBase, Queuel], goto[P4Rot]; 

IntPBaseToCurrentTime: 

PFetchl[PBase, CurrentTline], go to[P4Ret]; 
IntCurrentTimeToPBase: 

PStore'L[PBase, Current Time] , goto[P4Ret]; 


END; 
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iuse r t [tIOl ang] ; 

NOMIDASIMIT;LANGVERSTON; 
insortfglobdIdefs]: 

TITLE[xf]; 

» modified by Jobnsson October 9, 1979 4:08 PH, All 1829 - PIHP 

* modified by Sandman September 18, 1979 2:14 PM, AR 1708 type ? XFer, PortI 

f modified by Chang September 10, 1979 5:17 PM, !3nd MapOutoFflounds 

modified by Jobnsson June 28, 1979 8:10 AM 

* modified by Chang Juno 4, 1979 1:06 PM, fix 3 words, remove Hu'ltiOib 

* modified by Jobnsson May 14, 1979 9:51 AM 

* modified by Sandman May 8, 1979 12:37 PM 

"Dispatch base addresses 
S K T [; xfPa ge 1 p , LSII1FT[ xfPagel, IQ]] ; 

•Snj Al locDisp, ADD[xfPagelp, 120]]; 

SE if xf type, ADDfxfPagelp, 140]]; 

S[.T[ x fWRtab , ADD[ xf Page 1 p , 160]]; 

SF. If x fHRtab, ADD[ x f Pago lp , 200]]; 

SFTfMiscDisp, ADD[xfPagolp, 220]]; 

SET[ ReadT imol.oc , ADD[ x f Page Ip, ()]]; 

MCfliead TimeAddr, OR0[:1 70000, ReadTimeLoc]]; 



AiiocSub 


* 


called from xferg and 

ALLOC 

* 


constail ts 


* 

xfav 

allocation vector base 


* 


input registers 


* 

r 

frame size index 


* 


output registers 


4 . 

xf r rame, 

T frame pointer, 

x IT rame = 1 if fail 

* 


temps 


* 

xffsi 

frame size index 


* 

RTEMP 

bolds frarno chain link 


* 

xf rsav 

bolds frame chain link 

address 

* 

x f r1ink 

bolds return address 



onpage[xfpagel]; 

■'since xfPagel has NextData's and Nextlnsts, it must have refill link at 377 
xf Ref ill: go top[MesaRc fiII], Pfotch4[PCI!,1BUF,4]. AT[OR0[LSIIIFT[xfPagel, 10], 377]]; 

SaveRLink: 

xfRLink <- T, return; 


A IlocSub: 

USECTASK , xffsi <- t; 

T <- APC&APCTASK, cal I[SaveRLink]; "'save link in rlink 

T <- (xfFSI) 1 ( x f a v) ; 

ALLOCS: 

task , xfRSAV <• T; 

PI t-TCil 1 [MDS, xf f 1 ame] ; *the head of the list (can't fault) 

DISPA TCII[xf frame , 10,2]; 

1)1 SP[ Fill YPO] , xf frame » T « (xfframo) AND NOT (3C); 

Fill YPO: 

PI FTCII1 |'MDS, RTEMP] , A F[ ALLOCDISP, 0] ; * fault ir frame swapped out 
r <-• xfRSAV, cal I [ x file t] ; 

PST0I1E1[MDS, RTEMP] , cal 1 [xf ret] ; * (can't fault) 

APC&APCTASK <- xfRLJNK; "reload link Trom rlink 
RETURN , T <- xf Frame; 

FRTYP1: 

APC&APCTASK *- xfRLINK , AT[AFLOCDISP,1] ; 

RETURN , xf'Frame <- (1c); 

FRTYP2: 

GOTOfALIGC3A] , T <- xfframe <■ RSH|'xr frame , 2] , AT[ALLOCDi SP , 2] ; 

FRTYP3: 

GOTO[AIJ.OC3A] , T <- xfframe «- RSH[ x f f rame , 2] , AT[ATLOCI)ISP , 3] ; 

ALLOC3A: 

goto[ALLOC3] , l <- (xfframe) + (xfav); 
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* FreeSub: Free's the frame if McmStat[14] is 1. 

* constants 

* xfav allocation vector base 

* input registers 

* T address of frame 

* output registers 

* xffsi frame size index 

* temps 

* xrelink return-to address 

* ((TEMPI holds frame ctiain link 

* Note: Hone of FreeSub's memory references can page fault!! 

* This implies the av must bo resident and L[-l] must not bo swapped out. 


CondFreeSub: * load lu with FreoFrame bit from MomStat in calling inst. 

go to[FreeSub , a 1 U//0] ; 
retu rn; 

F reeSub: 


xfFrame <- T, USF.CTASK; 

T <- APC&APCTASK, cal 1 [SaveRL irik]; ’"save l ink in rlink 

T <- (xf FRAME) - 1, task; 

PFETCH1[MDS,xfFSX I; *get fsi 

xfFSl <• T <- (xfFSI) + (xfav), task; 

PFETCII1[MI)S, I1TEMP1]; * got head of l ist from av 

T <• x IF FAME, task; 

PSTORF. 1[MDS, RTEMPI ]; * link <- liead 

T <- xf FSI, task; 

PSTORE 1 [Mils, xf FRAME] ; * liead <- frame pointer 


APC&APCTASK «- xfRI.INK; ‘reload link from rlink 

MemStat <- (Normal), RETURN; * clear F reef lag 





MesaX.me 


3-Nov- /9 19:15:53 


Page 3 


Xfor 

input registers 

xfMX contains dost link or indirect link 
xftcmp2 contains mesa byte program counter 
xfbrkbyto contains break op-code to execute 

xfXTSreg contains Xfer trap flag 

output registers 
xffsi bolds frame size index 
temps 

xfcount 
RTEMP 

xftemp contains dest link 


Xfer: 

xftempr(zero);’setup Xfer trap reason in case of Xfer trap 
T x fMX, ca'11 [ChockXfer'f rap] ; 

Xfors: 

xfTemp <- T; 

GO I’OfCont rol Trap, ALIJ=0 j, DISPATCHfxf Temp , 16, 2]; 

MomStat <- (McraStat) or (EarlyXfer), IHSP[XFERTYPE]; 

XTER TYPE: 

PFETCII2[MDS, xfTomp], ATfxft.ype , 0] ; * Get GETP & Saved PC. 

califLoadgcj; 


*£**««*•• start of Alto Code ****•**»*«•**♦♦*»*♦**••********«•**»***«*«** 
xfTomp *- T <- lshfxfromp, 1], gotofpcOkay, r >= 0’|; 

T <- (Zero) - T; 

xflemp < (Zero) « (T) + l; 

*//*****'** r 11 a of A 1 I. O fmlfi II * 1- * * + * * * * >(■ * li * * * * * * * * + * * :M< * # * ■* * * -II # * * -H * * * * * * + i(t * 


pcOkay: f <- xf Frame, gotofXferGo]; * xfFrame contains dost 

xfo rtypel: 

xfCount <- T , ATfxftype,1]; * save descriptor, (xfTomp clobbered) 

xfTomp <- 1 di [xf Temp, 0,11] ; * gfi 

T *- (xfgft); 

task.T <- (1 slifxf Temp , 1]) + (T); *t <• gfi*2 + xfgft 
PFETCH2[MDS,xfromp |; 
califloadgc]; 

T <- (xfTomp); * evoffset from gft. 

xfCount <- (1 df [ xfCount, 11,5]) + T > 1; * + evi from descriptor + 1 

xfCount <- Ishf xfCount, 1] , gotofxfergj; * 2*ovir2 


xfertypo2: 

PFETCH2[MDS,RTCMP | , ATfxf type,2]; 

T < xfMX; 

Stack&+1 «- T, TASK; 

Stack&-1; 

T <- RIEMP , got of Xfors]; 
xfcrtypo3: 

T <- sllnbound , gotof StashMX] , ATfxf typo, 3] ; 
Coa t rolTrap: 

GOTOfMT rapF] , RTFMP <- sCont rol Fault; 
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* Interchange T (the now LOCAL) and LOCAL (the old) and do a 

* FroeSub on the old framo If the FreeF'lag in MsmStat indicates. 

* New Byte pc in xfTemp 

Xfo rOo: 

MNDR <- LOCAL, LOCAL <- T, task ,NoRegILockOK; 

* LOCAL <- new frame, MNBft <■ old frame 

T <- MNBR; 

In <- 1 df [MomStat, 14,1] , cal I [ Co rid F reoSub] ; * load FrooFiag 
PCF - xfTemp; 

MemStat <- XforFIxup; “fixup: byte pc = PC*2iPCF 
t«-rsh[xfTemp, 1‘); 
pfatch4[C0DE, IBuf ’l; 

PC *- T; * bypass kludge 

PC'-(PC) and not (3c) ; 

* •s******* s t o r t of Pilot Code >Y * * * lji * * * * * * * * * * * * * * * * * * * * * '■* * * * •* * * * * ■* * ■** * * * * 

M-CODEhi; » 

PChi^-t; * 

■i' - * * * * * * * £ p (j of’ Pilot C o cl g *#*##*****«*#*'> ***4»*#***#i!i**ii ********* :»***«*** 

*#***«*»* Start of Alto Code **•*•*«*••***»*•♦***••»*••♦♦**»***»*♦«**.*** 
nop; * allow page fault to happen before load page * 

t‘CODF.hi, LoadPagofO]; * 

PChi <-1, ca l l [SwapBy tes ] ; * 

*//»•***•* £ n< | 0 f Alto Codo ********************************************** 

IU <- xfBrkByte; 

gotoj[doBroakByte, ALU//0], MemStat «- (Normal);. 

* We dispatch the first instruction by hand to insure no interrupt 

T <- Nox tl)a taf IBuf ; 

xfBrkByto <• F, goto[doBreakBytox]; 

doBreakByte: 

NextData[(Buf]; 
doll roakBytox: 

T <- xfBrkByto (xfBrkByto) 0(1 (40400c); 
doBroakBy toy: 

xfBrkByto < |.CY[xfBrkB,y te, 2]; 

APC&APCTASK <- xfBrkByto; 
return, xfBrkByto <- ZERO; 
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Loadgc load global pointer and code pointer given 
local pointer or GIT pointer 
constants 

epoffset offset from global frame base to code pointer 

sCsegSwappodOut trap parameter 
sUnbound trap parameter 

input registers 

t mx (local frame pointer or GFT pointer) 

xfTcmp fetch pending: global frame address 

xfTempl fetch pending: PC or £V offset 

output, registers 

xfFrame mx (dost) for typeO Xfer, GFT pointer for typol(not used) 
CODE code base register 

GLOBAL global base register 

xffemp byte program counter or EVoffset*2 

temps 

xfRlink return address 

xftempi 


Loadgc: 

usoctnsk, xfFrame T, at[ LoadGCLoc]; * xfFrame written into LOCAL after Loadgc Call in typeO. 

r «- APC&APCTASK, cal I [SavoRLink]; *savc I ink in rlink 

l. < (xfTcmp); * now GLOBAL 

GLOBAL <- T; 

pfetcli4[MDS, IBuf]; * fetch all of new global overhead 

T <- xl’Templ, task; * put new PC (or EV offset) in xfTcmp 

xfTcmp <- T; 

111 <- GLOBAL; 

GOTO [loadgcnuI1, alu-0] , lu <- LDF[IBuf 1 . 17,1] ; 

GOI'O [loadgcswap, a lu//0] , 1 u <- RSH[ IBu f2 , 10 ]; 

GOTO [ShortCode, ALU//0], lu <• RSII[ IDuf 2,6] ; * (test) Alto only 

skip |ALU = 0|, T <• IBuf2; * test for bad pointer 

T <- IBuf 2 < (IBuf 2) OR (100C) ; 

f <• ( LSII[ IBuf 2 , 10 1) t (T); * code doesn't cross OAK boundary 

LongCodo: 

CODE hi <- T, task; 

T <- IBuf 1; 

CODE *- T; 

T <- IBuf; 
xfGf i Wo i d «- T; 

apc&apctask<-xf R1 ink , go to[xf Ret] ; 

ShortCode: 

T < MDShi, GOTO [LongCodo]; 
loadgcnu11: 

T < sUnbound , goto[StashMX]; 
loadgcswap: 

T «- sCsegSwappedOu t , goto[StashMX]; 
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Xforg allocates new frame and patches links 
input registers 

xfcotint index Into entry vector 
output registers 

T, xfFrame new frame (has been initialized) 

CODE code base register 
xffemp byte program counter 
temps 

xfTempi 


XforGt: 

t <• xf count , cal 1 [ChockXfe rTrap] ; * might use value from xfTemp 

xforg: 

task.t <- xf count; 

PFETCII2[C0DE, xfTemp] ; * this can page fault as 1st ref to code I 

* xfTemp <- wordpc; xffenipl «• f s i word 

T (1df[xfTemp l,10,10]), cal 1[AllocSub]; * alter this, no more PT'sl! 

go tofxf erg rf, R odd] ,lu «- xfFRAME; * new frame is in f 

PSTORC4[MDS,GLOBAL]; * store access! ink and return link 
xflomp <- 1 sh[xf temp, 1] , goto[XforGo]; 

* Alloc failed, cause trap with destination as parameter 
xforg rf: 

t <- xf MX; 

xfAl'Preg *■ t , go to[DoAl 1 ocTi'ap , al 1.1 // 0]; 

* local call, must fabricate procedure descriptor 

* xfcount has ?*evi-2, need 4*ov+l 

xfcotint <- (i slil'xfcount, 1 ]); *4*ev+4 

task, xf count «- (xfcount) - (3c); 

T <- (xfCflWord) AND NOT ( 17 7 c) ; 

t <- (xfcount) + (t); * ’+' is important (don't use OR) 

xfATPreg <• t , goto[DoA 11 ocTrap]; 
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« - _ - __ ___,___. „ 

* CheckXforTrap handles Xfer trapping 

* constants 

* sXforTrap trap parameter 

* Input registers 

* T Xt'or trap parameter 

* xfXTSreg odd Implies trap 

* xftomp Xfer trap reason (0 = other, 200 = L.FC, 400 = RET) 

11 output registers 

* xfXTProg Xfer trap parameter 

* xfXTSreg Xfer trap reason 

* ItTEMP Xfer trap typo 


CheckXferTrap: * 

go to[noXfo rTrap , r even] , xfXTSreg*-rsh[xfXTSreg, l]j 
DoXforTrap: 

xfXTPreg *- t; 
task.t <- xftomp; 
xfXTSreg t; 

RTEMP *- sXferTrap , goto[MTrapF]; 


x f Re t: 
noX forTrap: 

re tu rn; 
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SavoState saves state and i:eros stkp 
called from instop and DST 
input registers 
xfTemp whore to save state 
temp registers 
xfH'l ink return-to address 

xfTempl set stkp to this depth and pop till empty 
xfTemp2 stkp stored from here 


SaveState: * usectask in calling instruction 

T <- APC&APC TASK, ca 11 [SavellLin k] j "save link in rl ink 

T < (xfTemp) + (tic) ; 

Pstorel[MDS, LOCAL], call[sv3?/]; 

T <- (stkp) xor T; * true stack pointer to T 

xfTemp2 *- T; 

r <- (xfl'emp) > (10c), task; 

Ps'torelfMDS, xfTemp2]; 

T (xf Temp2) - (7c); 

xfTempl «- 10c, skip[carry]; 

xfTompl «- (xfTempl) r T + 1; * stack depth + 2 (3'(d-7)+l) 

stkp «- xfTempl, T <- (xfTempl) - 1; 
svloop: call[svpop]; 

T <- (stkp) xor T; * true stack pointer to T 

T <- (AllOnes) 1 T, goto[svloop, alu//0]; * T <- offset in saved stack 
apc&apctask <- xfRl ink, goto[xfRctj; 

svpop: T <- (xfTomp) + T; 

Pstorel[MDS, Stack]; 
sv3/7: T <- (377c), return; 
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LoadState loads state 
input registers 

xfTemp where to load state from 
output registers 
xfMY source link 

xfMX dest link 

xfBrkByto break instruction replacement 

temp registers 

xfTempi count of stack items to be loaded 
xfTemp2 count of stack items loaded so far 


LoadState: 

T <- (xfTemp) + (10c); 

PfetchlfMDS, xfBrkByto] , cal 1 [xfllot ]; 

T <- (xfTemp) + (11c) ; 

Pf etch'J [MBS, xfMX] ; 

NWW «- (WWW) and not (100000c); 

T <- (xfTemp) h (12c); 

Pfetchl[MDS,xfMY], task; 
stkp *- flZero; 

T (xfBrkByto) and (17c); 

XBuf <- T; * stack depth saved for stkp below 

xfTempl <- 10c; 

T < (IBuf) - (7c); * check for 7 or 8, T «- d-7 

XfBrkByto «- rsh[xfBrkBy to , 10] , skipfearry]; 

xfTempl «- (xfTempl) + T '■ 1; * stack dopth+2 (8+(d-7) + l) 

xfTeinp2 <• T < /FRO, cal 1 [ 1 d loop]; 

Idloop: lu «- (xfTempl) - T; 

T <- (xfTemp) + T, goto[ Idpusli, alu//0]; 
stkp < XBuf, goto[Xfer]; 

Idpusli: Pfotchl[MDS, Stack]; 

xffenip2 < T <■ (xfTomp2) + I, return; * return to Idloop 
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DoA'11 ocT rap: 

RTEMP <• sAllocl. istEmpty, goto[MTrapF |; 

* In general, wo want to do the FreeSub after all possible Xfer page faults 

* can occur, but before all other traps. 

StasliMX: * StuckError, UnBouiid, & cSwappedOut Traps come horo 

task,RTEMP <• t; * RTEMP holds SD index (through FreeSub) 

t <- xfMX; 
xf OTP reg <- t; 

MTrapF: * XferTrap, AllocTrap, & Control Traps come here 

T <- LOCAL; 

lu «- 1 df[MeinStat, 14,1], cal 1 [CondFrecSubj ; * load FrceFlag 

MTrap: * PageFault & WrileProtect and RETXfer traps comes to hero 

RTEMP <- (RTEMP) + (xfav); 
task , t <■ (RTEMP) + ( xf sdof f set); 
pfetchl[MDS, xfMX]; . 

go to[Xfer]; 


onpagc[opPage3]; 

HIntTest: * Back lip PC by T if stopping 

goto[MIPend, IntPending]; 
retu rn; 

MIPend: RTEMP <- T; * PC backup ‘interrupt from bitblt outers here 

T *- (GetRSpec[ 103]) xor ( 377c) ; * save Stkp 

MIPenclx: * interrupt through NOP enters here 

RTEMP 1 <- 342c; * RSImage 

Stkp <• RTEMP 1, RTEMP1 «- T, NoRegILockOK; * saved Stkp 

I <- Stack <•■ (Stack) and not (IntPend iiujB i t ); 

RS232 *■ T; * turn off IntPonding 

Stkp «- RTEMP 1; 
lu «- HWW; 

lu <■ xCWDC, goto[nothing, alu = 0]; 

T <- RTEMP, goto[0 i sab I od, alu//0); * load PC backup 

IntType <- T, goto[DoInterrupt, alu - 0]; 

PRFlags *■ (Zero); * clear flags so that interrupt can or in 

» its state. In case of no pc backup done in Int Idle loop 

IntType <- ( Ic) , call [P/Ret]; 

I <• (PCFreg) T; 

■ sk ip[alu> = 0] , xfTenip <- T; 

PCB < (PCB) - (4c); 

PCF «- xfTemp; 

Dolirterrupt: 

T <- NWW; 

HWW <- (Zero); 

WW <- T, LoadPage[0pPage0]; 

lu <- LDF[WW, 13, 1], goto[Interrupt]; 

Disabled: return; 
nothing: return; 


*//***““ Start of Alto Code »«**•**•**•*•*•»•«•»**•*••**•*•**•**•*•***•* 
•Return to Nova. TBuf contains the PC at which Nova execution is to begin 
Ms lop: 

NWW (NWW) or (100000c), call [SavPC inFramo]; 

Mstopx: task.t < currentstate; 
pfetchl[MDS,xftemp]; 
loadpage[xfpage'l] , T <- RZoro; 
lisectask, cal lp[SaveState] , PCBH*-T; 

RTomp <- F Fault Add , call[FFSl]; 

Stack «- (Stack) and not (1c); * FFAUI.T «- "crash on page fault" 

DMAIi <- I <- 0c; 

SMAh T, loadpage[nePage]; 

T <- IBuf, go top[ IMP] ; 

*//****»•* End of Alto Code ****»****»*«**********»***♦«******»»******»»** 

•Start from Nova. T has address for LoadStato, xfMX even => soft boot xfor 
MStart: LOCAE <- 0c, cal 1 [FFauItStack]; * l.STFgo loads state from t.OCAL+T 
Stack <r (Stack) or (lc); 

lu <- xfMX, goto[L.STFgo, R odd]; • FFAULT «• "trap on page fault" 

# yy * * * + i|* * * StQrt of Alto Code ’l'***'****'*'*'**#*#****##:)! ******* + * * * * * * d* * * 1 * # # * # 
Stkp *• RZero; 
loadpago[xfPagel]; 

Stack&+1 <- 2c, gotop[xfer]; 

£|](j of Alto Code *** + ****#*# ****#*•+** *********** # #***:)[ ♦***$*# 

•=••**••* Start of Pilot Code »**•*«*♦***»***»*♦««*»**«•*»*»*******»***** 
loadpage[xfPage!]; 

Stkp <- RZero, gotop[xfer]; 

»-«**•••* End of pn 0 t Code *****•***•*******«♦****«*****•**••****»**•**• 

FFaul tStack: RTEMP <- FFaultAdd; 

FFS1; Stkp <- RTEMP, return; 
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SavPCin Frams 

input, registers 
PC, PCF Mosa PC 

output registers 

xfMY holds Xf'er SOURCE 

LOCAL holds local base register 
temps 

RTEMP1 


SavPCInF rattio: 

T <- CODE; *C0DEh1 arid PC h i are equal, so wo only need to worry about the low word 

T <- (PC13) - (T); *15 bits, since code segments are < 32k. 

*<=*•«**** Start of Pilot Code «*•*••*•*•****••**•*•••***•*•***•*••*••••** 

IITEMPl <- f; 

T <- PCFrog; 

RTEMP1 <• (1sh[RTEMP1,1]) + (T); *byte PC (relative to C) of the instruction to bo executed 
♦when this frame next runs. 

# ******* |T || (J q p Pilot Code ## 'l* * ***** * ****** ’fr *'>•*#** + * * + ‘I 1 : »* *#***#* * # * *'***»* * 

*//******* Start of Alto Code ♦•**«♦♦**«****«**•»**»*»*«■«««♦****•*•****•** 

T <- ldf[GotRSpec[127], 14,3] + T, skip[R even]; 

RTEMP1 < (Zero) T, goto[StorPC]; 

RTEMP 1 <- T, go to[ S to rPC] ; 

*//**•••** p.nd 0 f Alto Code **•*♦***•»«*«*•**************************»**»» 

StorPC: Pst oral [LOCAL, RTEMP .1, l]; 
t LOCAL; 
xfMY *- t, return; 
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Getl.ink fetches control link from global frame or code seg 
input registers 

T Table offset for link 

CODE code base register 

GLOBAL global base register 
output registers 

IITEMP will contain link 

temps 

IITEMP 


Getl.ink: 

1u *• xfGfiV/ord , goto[f ramel ink, R even); "xfGfiWord was set up by Loadgc when this 
‘frame became current. • 

codolink: 

PFETCH1[C0DE.RTEMP], return; 
f ramelink: 

PFETCH1[GL0BAL,RTEMP]. return; 
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onpage[opPage3]; 

MasaRof ill'/: go topfMesaRc I i 11] , Pfotch4[PCB.IRUF,4], at.[37?7]; 


*EFC0 - EFC16 


0EFCO 


t 

<- 

(1c) , 

gotofofer] , 

OPCODEf300]; 

©feci 


t 

+- 

(2c) , 

gotofefer] , 

OPCODEf 301]; 

8EFC2 


t 

«" 

(3c) , 

gotofefer] , 

OPCODEf302]; 

0EFC3 


t 

<" 

(4c) , 

gotofefer] , 

OPCODEf 303; 

8EFC4 


t 

<“ 

(5c) , 

gotofefer] , 

0PC00E[304]; 

OPCODE[305]; 

QEPC6 


t 

f- 

(Gc) , 

gotofefer] , 

OEFC6 


t 


(2c) , 

gotofefer] , 

OPCOI)E[308]; 

0EFC7 


t 

<- 

(10c) 

. gotofefer] 

, OPCODE[307]; 

0F.FC8 


t 


(11c) 

, gotofefer] 

, OPCODEf310] ; 

8EFC9 


t 

«- 

(12c) 

, gotofefer] 

. 0PC0DE[3.ll]; 

QU C 10: 

t 

<- 

(13c) 

, gotofefer] 

, OPCODEf312] ; 

8EFC11: 

t 

«- 

(14c) 

, gotofefer] 

, 0PC0DE[313]; 

8EFC12: 

t 

f- 

(10c) 

, gotofefer] 

, OPCODEf314]; 

0EI-C13: 

t 

«“ 

(16c) 

, golo[ofcr] 

, OPCODEf 315]; 

0EFC14: 

t 


(17c) 

, gotofefer] 

, OPCODE[316]; 

0EFC1G: 

t 


(20c) 

, gotofefer] 

. OPCODE[317]; 

8EFCB 


t 


CHoxtDatnfIBuf] + 1 

. call[ofcr], OPCODE[320] 


of cr: 

t *• (zero) - t , callfGetl.ink]; 
t <■ RTEMP, gotofsfer]; 


*LFC 1 
81. FC1 


LFC1G 

GOTOflfcr] 


t <- xfcount 

<- ( 4C) 

, OPCODE[321] 

0LFC2 


GOTOfIfcr] 


t <■ xfcount 

<- ( 6C) 

, OPCODEf322' 

8I.FC3 


GOTOflfcr] 


t «- xfcount 

<• (10C) 

, OPCODFf323' 

0L.FC4 


GOTOfIfcr] 


t <- xfcount 

<- (12C) 

, OPCODEf324 

81 ECO 


GOTOflfcr] 


t < xfcount 

«■ (I4C) 

, OPCODEf325 

01. EC 6 


GO 1 OfIfcr] 


t <- xfcount 

<- (isc) 

, OPCODFf326 

8I.FC7 


GOTOflfcr] 


t <- xfcount 

<- (20C) 

, OPCODEf327 

91 ECS 


GOTOflfcr] 


t <- xfcount 

- (2ZC) 

, OPCODEf330]; 

8LFC9 


GOTOflfcr] 


t <• xTcount 

<■ (24C) 

, OPCODE.[33 1] ; 

01.EC 10 

GOTOflfcr] 


t < xfcount 

<- (26C) 

, OPCODEf332j; 

0LEC11 

GOTOflfcr] 


t <• xfcount 

<■ (30C) 

, OPCODE[333]; 

8LFC12 

GOTOflfcr] 


t <- xfcount 

«■ (3 2 C ) 

, OPCODEf334]; 

81. FC 13 

GOTOflfcr] 


t <- xfcount 

<- (34C ) 

. OPCODEf335]; 

01 [ C14 

GOTOfIfcr] 


t < xfcount 

«- (3GC) 

, OPCODE[33G]; 

01 EC 10 

GOTOflfcr] 


t «- xfcount 

*- ( 4 0 C ) 

, OPCODE[33 7]; 

0I.FC16 

GOTOflfcr] 


t <- xfcount 

«■ (42C) 

, OPCODE[340]; 

0LFCB 

1 fer: 


T < NextDataflBuf] , OPCODE[341J; 

xfcount <- (zero) + (t) + 1; 

xfcount < Ishfxfcount,1] , gotoflfcr]; 


xfMX <- zero , cal 1 [SnvPCinFrame]; 
loadpage[ xfpagcl ]; 

x f temp*-(400c), go tofXferGt ]; ‘setup xftemp with 2 * Xfer trap reason 
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*SFC 

@SFC: goto[sfcr],T «- stack&l , 0PC0DE[342]; 

s f c r: 

xfMX <- t , ca ll [SavPCinFraine]; 
loadpagefxfpagel]j 
gotoxfer: 

goto[Xfer]; 

*RET 

HRF.T: T+(LOCAL)+(Gc) , 0PC0DF.[343] ;‘code for XTSreg If Xfor trap 

LoadPage[xfpagel]; 

xf temp<-( 1000c), call p[Clii)ckXfe rTrap); '‘setup xftemp with 2 * trap reason in case of Xfer trap 
task,pfotchl[LOCAL, xfMX, 2]; * Fetch destination link (at xfret Iinkoffsot) 

McinStat <■ (FrceFrame); * set FreeFlag . 

I oadPage[ xfpagol] , T <- xfMX; 

GOTOp[Xfers], xfMY <- (OC); 

♦LLKB 

QLLKB : T <- Nox tData[ IBuf ] , 0PC0DE[344]; 

cal l| GetLink'J , T *- (zero) - (T) - 1; 

T *- RTEMP, goto[ PusliTP /'J ; 

*PORTO 

OPORTO: ca11[SavPCinFramo] , 0PC0DE[345]; 
f <• stack&-l; 
task, xftemp <- T; 
ps to rol[MDS, xfMY]; 
task.T (zero) •- (T) 1 - 1; 
pfetcliJ[MOS, xfMX]; 

T <- xftemp , 1 oadpage[xfpage 1]; 
goto[Xfer] , xfMY <- T; 

♦PORT! 

0PORTI: Stack&H, 0PC0DE[346]; 
in <- xfMY; 

goto[portinz,alu=0] , T «- Stack&-1; 
ps to re t[MDS, Rze ro |, ca 11 [P7lle t]; 

T *- (lUcro) + (T) + 1; 

po rtinz: 

goto[P7Tai1],PST0RE1[M0S,xfMY]; 

*KFCB 
0KFCB: 

f <- NextData[IBuf] , OPCODE[347]; 

kf c r: 

RTEMP 1 T, cal 1 [SavPCinFramo], at[KFCRLoc'J; 
loadpagofxfpagol]; 
go to[MT rap]; 

*DF.SCB 
0DESCB: 

T <-■ xfGfiWord, OPCOI)E[3GO]; 

RTEMP <- T; 
rioscbcom; 

T <- NoxtData[IBuf]; 

RTEMP 1 <- t; 

t <- (RTEMP) and not (177c); 
t <- ( I sh[ RTEMP 1,1]) i- (t) + 1; 
go to[ P7Tai 1 ] , st ack& i 1 t; 


*DESCBS 

0DESCBS: 

T <- (STACK&-1) i- (xfgf iof fset), 0PC0DF.[351] ; 
pfetch1[MDS,RTEMP], goto[descbcom]; 
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-BLT 

BOLT: LP <- Oc, 0PC0DE[362]; 

t<-MDSh i; 

01. F com: 

LPh1«-t; 

* fixup: fetch => count + 1; store => sourco-l, dest-1, count+1 
MomStat <- BI tF ixup , cal I [BLTx]; * set return address to BL.TIoop; 


BLTloop: 

lu staek&-l; 

goto[8LTdene,a Iu*0] , T <- $tack&+l; *get source, point to count 

stack *■ (stack) - 1; ‘decrement count 

pfetchl[I.P, RTEMP']; 

atack&i-l; '"point to dost 

T stack&-2; '"got dest, point to source 

pstorel[MDS, RTEMP'J; 

stack <- (stack) + 1; * increment source 

Stacks*2; 

Stack *■ (Stack) + 1, goto[BLTint, IntPonding]; ‘increment dest 
BLTx: stack&-l, return; ’"point to count, return to BLTloop 

ni.Tdone: stack&-2; 

Bl.Tdonex: goto) P/fa ll]| .MemStat <- Normal; 

Bl.TInt: 1oadpagc[opPageO] ; 

RLTstop: f 1c, gotop[NOPint]; 

niLTI. 

WBl.TL: T <• (Stack&-1) and (377c), OPCODE[353]; 

LPdesth 1 *• T; 

f <- LPdesthi <■ (1 sh[I Pdos th i, 10'|) + (T) >■ 1; 

LPdesthi <- (fixVA[LPdesthi]) OR T; 

T <- Stack&-2, loadpagefG]; 
l.Pdest <■ T, callp[StuckLP]; 

RTEMP1 *■ (Zero); 

MemStat <- BltLfixup; * fixup: sourco"T, dest+T, count+1 
Stack&+3, call [BLTl. loop]; * point to count 

BLTL!oop: 

lu <- Stack; * read count, point to source lo 

T <- RTEMP1, goto[BLTLdone,alu = 0] ; 
pfotchl[LP,R TEMPj; 

Stack + (Stack) - 1; * decrement count 

RTFMP1 + (RTEHP1) + 1; * increment offset 

ps to rel[Li’des t, HTEMP ]; 
go to[BLTLint, XntPend ing]; 
return; * goes to til. I'Ll oop 

BLTLdone: 

stack&-3, goto| DLTdonex']; 


BLTL int: 

Stack&-2; 

call[BLTLbumpI; * wait for page fault before updating stack 
Stack&"2,cal 1[HLTLbump]; 
loadpagefopPagoO], goto[BLTstop]; 


Bl.TLbump: 

Stack <- (Stack) + (T) + 1; 
Stack&+1, skipfnocarry]; 

Stack «- (Stack) + 1, return; 
retu rn; 


*BLTC 


0BLTC: 

T <- 

CODE, OPCODE[354]; 


L.P < 

+ T; 


T <- 

CODEhi, C0T0[BLTcom]; 

•BLTCL 

0BLTCL: 

T <- 

sllnimplemented, gotofkfcr], 0pcode[356]; 
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•ALLOC 

©ALLOC: 

T <- STACK&-1 , OPCODE[356]; 

1oadp ag e[x fpage1]; 
call |>[ A llocSub] , xfATPreg <- t; 
go to[a I loc rf , (i odd] , I u <- xfFRAME; 
PushTP7: goto[P/Tai VJ, stack&+l ■<- t; 

P7Ret: return; 


a 11 o c rf: 

call[SavPCinFrame]; 
loadpuge[xfpaget]; 

xfATPreg «- 1 sli[ xf ATP reg , 2 ] , goto[DoAll ocTrap] ; 


•FREE 

©FREE: 

T *■ Stack8i-l,laadpage[xfpngel], 0PC0DE[307]; 
ca 11 p[F reeSub] , MemStat «- (FreoFrame); 

P 7 T a H : lu <- Noxtlns t[IBuf ] , at[P7 fail Loc]; 

P7Ta11x: N T RET; 

•Increment Wakeup Disable Counter (Disable Interrupts) 

0IWDC : go to[P 7 fai1],x fwdc (xfwdc) + 1 , OPCODE[3O0J; 

"Decrement Wakeup Disable Counter (Enable Interrupts) 

SDWDC: 

task , t <- ( R400) or (02c), 0PC0DE[361] ; 
p Te tc 111 [Nova, x f temp] ; 
xfwdc <- (xfwdc) - 1; 
t <• xftenip; 

NWW <- ( NWW) or (t) ; 

gotofDWDCnone, alu=0]; * see if any interrupts 

RI I MP < 342c; * po ints to RSImago 

T < (GetRSpec( 103]) xor (377c); * read Stkp 
St kp <- R TEMP , R TEMP <- T; 

T <- Stack <- (Stack) or (IntPendinglli t); * sot IntPend ing 
RSZ32 <- T; 

Stkp «• RTEMP; 

* dispatch the next instruction by hand to allow one 

* instruction without interrupt 
DWDCnone: 

T <- NextDatafIBuf]; 

xfBrkByte T, 1oadpagefxfPago 1]; 

T <- xfBrkByte «- (xfBrkByte) OR (40400c),gotop[doBreakllytey]; 


"S10P 

h .// * # * # * * * e t a r t n f flltn C n ft ********** *******111****** ********* ******* ***** 

©STOP: IBuf " stopStopPC? goto[Msto P ] , 0PC0DE[362]; 

* ff * * # * * * in £ ii fj of AltO C O d Q ****** ‘* ’* * * * * **'•>' ************ ’i* * * * ********* * * ■•*• * * * * 

•■=*•*•«** Start of Pilot Code ****••««•*****»*♦***♦***•■*****•»•*•««.*♦••« 
©STOP: T <- sUn implemented, goto[kfcr] , 0PC0DE[362 ]; * 

*=*«***»* End of Pilot Code **•*****•*•*•*•••«•***»«*•*****••**••*••*•*** 


"CATCH 

CATCH: lu < NexlData[IBUF],cal I[P7Tai1], Opcodo[363]; 
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♦MISC - extended opcodes accessed by dispatching on alpha 
QMISC : T <- NextDatii[IBUF j, opcode[364 J; 

LoadPago[xfPagolj, RTEMP *■ T; 
gotop[.+l], D ispat.ch[RTEMP, 14, 4]j 

OnPagef xt'Pagel]; 

01sp[8ASS0Cj; * dispatch on second byte 

MIscTail: lu <- NextInst[IBUF], AT[MiscD1sp,20]; 

MiscTailx: NIRF.T; 

* Associate - TOS contains map entry, (TOS-1) contains VP which is to got it. 

QASSOC: T «- ( Stack&- 1) , AT[MiscDi sp , 0] ; 

Ca l i [MapLP'J, xBnf <- T; 

ASSOC 1: XMap[LP, xBuf, 0], goto[M1scTail]; 

* Set Flags 

0SETF: r e (Stacks-1), AT[Mi scDi sp , 1]; 

Cal 1 [MapLP'l, xBuf *- T; 

XMapfLP, xBuf, 0]; 

T <- LSH[xBuf3,10] ; * Put f 1 ags , ,card , bIkO in loft byte 

T *- xBufl <■ (RHMASKfxBuf 1]) OP (T); * blk 1, rowaddr in low byte 

T <- (ZERO) or riot (T); * push old flags & page 

Stack&+1 <- T; * push old flags & page 

lu <■ (1df[xBuf3,11,3]) -t; * =0 if map entry - VACANT 

goto[ . 12 , ALU//0] , xBuf «- (xlluf) and ( 70000C); * isolate now flags, ignore LogSE 

go to[ASS0C 1 ], xlluf <- T; ♦ Vacant entry, use old flags, oldpagc 
T <- (Stack) and not (170000C); * Get old page number 

goto[ASS0C'l], xBuf <■ (xBuf) or (T); * new flags, old page 

•Subroutine Mapl.P creates a base register pair from a virtual page number for the Map opcodes. 
Mapl.P : T <- LSH[S t ack, 10] : 

LP < T; * Set low Base 

T *- LIIMas k[S Lack&-1 ] ; 

* goto[ . i-2 , R>-0 j , LPIvi < x; * Set high byte of h igh base 

go to[ .+2 , A1 u> =0 |, LPlii <- T; * Set high byte of high base 

i.Phi <- (LPhi) OR (40000C); * set bit 1 if 0 is set. 

Mi sc Ret: 

RETURN; * one instruction to allow I.Phi to be written 


• Road & Write Ram format: stack = 40:43,,addr, (stack-1)-40:43, (stack-2)=0:17, (stack-3) =20:37. 

QlleadRam: T <- LDFf S t ack&-1, 4, 14], AT[MiscD1 sp, 2] ; * got address 

RfEMP r T; 

call [CSRuad], T <- 1C; * read 20:37 

cal 1[CSRead], T < 0C; * read 0:17 

cal 1 [CSRoad] , T <- 3C ; * road 40:43 

T «• RTEMP; 

GOTO[Mi scfai 1 ] , Stack <- (|.SII[Stack, 14]) or (T); 

* Subroutine CSRead reads control store for ReadRam opcode. 

CSRead: APCTASK&APC <- RTEMP; 

lleadCS; 

r *- CSData, A1[M i scD isp , 22] ; *5110005500 of CSOp must bo even 
return, Stack&+1 «- T; 

©WritcRam: T <- Stack&-1, AT[MiscOisp,3]; * get 40:43,,address 

RTEMP <- T; 

T <- LDF[RTEMP, 0, 4J; * got 40:43 

LU <- Stacks-1; » bits 0:17 

APCTASK&APC <- RTEMP; * value of apetask a don't care 
WriteCS0&2; 

LU «- Stack&-1, AT[MiscDisp,24]; * bits 20:37 

APCTASK&APC <- RTEMP; * value of apetask a don't care 
WriteCSl, goto[MiscTai1]; 


SJuinpRam: NOP, AT[M i scDi sp , 4] ; * Filler 

APCTASK&APC <- Stack&-1, Cal 1 [MiscRet]; 

* The notified microcode must not task until it is ready to return to emulator! 
CALL[Mi scTai 1 x] , lu <- NextInst[IBUF]; 

SET[ I.RJRase, ADD[LSHlFT[LRJpago, 10] , 300]]; 

MC[Vors1onID,0]; 

Mi ScT rap: 

LoadPagc[OpPage3]; 
gotop[kfcr]; 

OLoadRamJ: 

T <- (stack&-l) xor (lc), AT[Mi scDi sp , 3]; 

RTEMP1«-T, 1 oadpagefopPagel]; * save bits, jump complemented 

T «• (Stack&-1) and (377c), callp[StackLPx]; 
pfetchl[LP,RTEMP,0], call[Mi sc Ret]; 

LU «- (RTEMP) xor (VersionID); 

T *- sUnimplemented, G0T0[Mi scTrap , al u//0] ; 

T «- (GetRSpecf 103] ) xor (377c); 

RTEMP <- FFaultAdd; 

Stkp <- RTEMP, RTEMP «• T; 

Stack <- (Stack) and not (lc); 
loadpage[LRJpage]; 

Stkp <- RTEMP, gotop[ . + 1]; 

OnPage[LRJpage]; 


LRJenter: 

t *■ xfTemp <- lc, AT[LRJBase, 0]; 

nop, AT[LRJBase, 1]; * wait for write of xfTemp to avoid bypass problem 
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LRJ1oop: 

pfetchlfLP ,xBtif 2] , r.al 1 [LfiJIncCount] , ATfLRJBase, 2]; 
pfot cli l[L P , xBufJ , ca l l f I.I1J IncCoiiii t’J , ATfLRJBase , 3]; 
plotchi[LP , xBuf 1] , ca I i[LRJIncCoun t ] , A1[LRJtiaso, 4] ; 

T I d f [ x B u f 2,0,14 ] , ATfLRJBase , 6]; ' » address 

xBuf 3 ' T, ATfLRJBase, 6]; 

lu «- (xBu f 3) XNOR (1 70000c) , ATfLRJBase, 7|; '"'look for m-i address = 7/77 
I <- xlHif2, golofRaniLouded , al u-0], ATfLRJBasa, 10]; 

LU <- xBuf, ATfLRJBase, 13]; 

APC&APCTASK <- xBuf3, ATfLRJBase, 11]; 

WRITECS0&2, ATfLRJBase, 14]; 

LU <• xBufl, ATfLRJBase, 15]; 

APC&APCTASK <- xBuf 3, ATfLRJBase, 16]; 

WRITECS1, ATfLRJBase, 17]; 

T <- xfTemp, gotofLRJ loop], ATfLRJBase, 20]; 

LRJIncCount: 

I <- xfTemp <- (xfTemp) + l, gotofJumpRot], ATfLRJBase, 21]; 

RarnLoaded: 

RTEMP1, GOTOf. i2,Rodd], ATfLRJBase, 12]; * odd if no jump 

APCTASK&APC <- (xBufl)', cal 1[JumpRet], ATfLRJBase, 22]; * sol TPC for return 

T <- (GetRSpccf 103]) xor (377c), ATfLRJBase, 23]; 

RTEMP <- FFaultAdd, ATfLRJBase, 24]; 

Stkp < RTEMP, RTLMP <- T, ATfLRJBase, 25]; 

Stack <- (Stack) or (lc), ATfLRJBase, 26]; 

1oadpage[4|, ATfLRJBase, 27]; 

Stkp <- RTLMP, gotopflMTail], ATfLRJBase, 30]; 


JumpRet: 

RETURN, ATfLRJBase, 31]; 

OnPagefxfPagel]; 

* The following is for b.yte code CLRDev - clear all devices and timers 

SLIfQDBase,1shi ftfClrOvPago,10]]; 

SETfQdloc,ADDfQUBase,303]]; 

MC fQdxL,AMD@fQdloc,377]];‘ 

MCf0dxll,OR6f 150000,ANOOfOdloc, 7400]]]; 

SETfQdrotLoc,Add[QDBase,307]]; 

MCfQdRetL,AWDSfQdretLoc,377]]; 

MCfQdRo til, ANO@f Qd ret Loc ,7400]]; 

QCLIiDev: 

RTEMP <- ( 100000C), ATfMiscDisp , 4] ; 

I oadl’agef C I rDvPage] ; 

RTEMP <- (RTEMP) OR (16C), go topf C1 ea rTime rs ] ; * clear out all but memory refresh 
OnPagefClrDvPage]; 

C1 ea rTimu rs: 

EOADTIMERfRTEMP]; ‘Clear out all Timers except one 

NOP; 

NOP; 

NOP; 
task; 

RESFTMEMF.RRS; 'Clear any pending memory errors 

LU <- (RTEMP) AND (l/C); ‘there are 15d timers to be cleared 

RTEMP <- (RTEMP) - 1, GOTOf Cl ea rTime rs , ALU//0]; 

Qdtask: RTEMP < QdxL; ‘Quiesce tasks 10b to 1 
RTEMP <- (RTEMP) or (Qdxll); 

Stack&i 1 <- QdRetL; 

Stack < (Stack) or (QdRetll); 

Qdloop: APC&APCTASK <- RTEMP; 

CLDrot: return; ‘goes to Qdx 

Qdx: APC&APCTASK «- stack,call[CLDret], ATfQdloc]; "Notify comes here. Leave task's TPC pointing at Qdxy. 

Qdxy; golofCIDret]; * gets hero if wakeup 

Qdret; lu «- 1dffRTEMP,0,3], ATfQdretLoc]; ‘Devlndox points to this location 
RTEMP <- (RTEMP) - (10000C), dblgotofZapDev i cos,Qdloop,ALU = 0]; 

ZapDovices: T <- 177400C; 

RTEMP <- 0c; 

ZapDloop: OUTPUTfRTEMP]; ‘send a 0 to all registers of all devices, hopefully quiescing them 

T <• (zero) + (T) i 1; 
gotof ZapD loop, AI.U<0]; 

Stack&-1, loadpagef4]; 
gotopfP4Tail|; 

* Opcodes for Mesa Input/Ouput. StackfO:7]=XXX, StackflO;13]~task no., 

* Stack[14:17]=I/0 register number. 

OnPagefxfPagel]; 

* Opcodes for Mesa Input/Ouput. StackfO:7]=XXX, StackflO:13]=task no., 

* Stackf14:l7]=I/0 register number. 

0INPUT; T <- Stack&-1, ATf MiscDisp , 5] ; 

gotofMiscTai1],Input[Stack]; 

©OUTPUT: T <- Stack&-1, ATf MiscDisp , 6] ; 

gotof fli scTai 1 ] , Out put f Stack] ; 


7 . 

•Checksum opcode. Stack, Stack&-l=Long pointer to end of buffer, 
* Stack&-2-negative count, Stack&-3=checksum. 

SChkSumL: t*-stack&-1, loadpage[ipPage2], ATfMiscDisp, 7]; 
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lplHghB<-t, call [StackLP]; * convert into base reg pair 

stackHstack)+ 1, loadpaqeripPage2I; * fudge the cotint 

lpLowB<-( lpLowB) H; 

onpage[1pPage2]; 

goto[.+ 2 , carry]; 

goto[ChkSNext] , 1 plligliB* (1 pllighll)-(400C) -:l; * count goes backwards 
go to[ChkSNox t .l), t<-( stack&-'l)-l; 

ChkSMext: t<-(stacks-1) -1; * count 

ChkSNextl: goto[ChkSEnd, alu=0]; 

* task, pfotchlf I pi.own, xftempj; * got data 

pfetchl['lpLowB, xftomp]; * got data 

tt-stack; * got current checksum 

xf temp<- (xf temp) +t; 
goto[.+ 2 , nocarry]; 

xftemp<-(xftemp)+ 1 ; * ond around carry 

t«lcy[xftemp, 1 ]; * cycle left one place 

stack^t; * put back on stack 

task, stack&+l; * point slack at count 

s tack*-( s Lack) + 1 ; * increment count 

iut-xfwdc; * check interrupts enabled 

goto[ChkSMext, alu//0], lu«nenww;* ciicck if interrupts present 
goto[ChkSNextl, alu-0], t<-( st,ack&-1)-1; 

* interrupt!!! - copied from xf.mc 0BIT 

task, t*-(2C); * pcx needs to bo decremented by 2 

nop; 

t<- (pcxreg)-(t); * since it's a MISC bytecode 

goto[.+ 2 , nocarry], xftomp*t; 

mIPC*-(mlPC) • (4C); * point to old code buffer 

loadpnge[inl Paged]; 

goto[ lets top], pcf<-xftemp; 

ChkSEnd: t<-(zero) -1; * checksum---1? 

iu*-(stack) XOR t; 
go to[ . +2 , alu// 0 ] ; 

stack<-(stack) + l; * make chksum =0 

goto[1pp2nxtret]; * goto NFXTINST, return 

% 

*SetMaintenancePanel opcode 

* just put value on stack 

QSetMP: T <- stack&-l, loadpage[0], at[MiscDisp, 10]; 
c a 11 p [ P NIP ] ; 

In <- NextInst[IBUF], call [Mi scTai 1 x ]; 

*=»****•* Start of Pilot Code •*••*•*•**•••••***•***•*•***•*******•**••*• 
"Read realtime clock; Switch to task 17 to read the clock 
0RCLK: RTeinp <- (ReadTimeAddr), at[Mi sc!)i sj>, 11]; 

APC&APCTask <- RTemp, call[MiscRet]; 
goto[MiscTai1]; 

So tTask[17]; 

RoadT iino: 

T <- CiockLo, A T[ RoadTimeLoc] ; 

Stack&+1 *- T; 

T <- Clocklli; 

Stack&+1 «- f, return; 

SetTask[0]; 

*=•••••*• End of Pilot Code **•**••*••*•***•«******•••«*********••«*•**** 

*//**«***• Start of Alto Code **••**********•••*********•**•**•*»••*••*«•* 
“Read realtime clock (push[RH325]; push[VI1430]; check for overflow 
0RCLK: T *- (R400) OR (30c), at[MiscDisp, 11]; 

Pfetehl[Nova, RTEMP]; 

RTEMP1 *- 325c; 

T «- Stkp; 

Stkp «- RTEMP1, R1F.MP1 <- T, NoReglLockOK; 

RTEMP 1 *- ( RTEMP 1) xor (377c); 

T <- 1 sh[Stnck, 1 ], skip[R>=0]; * check for non pos ted overf low 
RTEMP <- (RTEMP) + 1; 

Stkp *• RTEMP 1; 

Stack&+1 <- T, loadpage[7]; 

T <- RTEMP, gotop[PushTP7]; 

41 //*#***** £p(J ()f AltO C 0 de 

‘Read printer 

0RPRINTER: T <- PRINTER, at[MiscD1sp, 12]; 

Stack&i-l «- T, goto[MiscTail ] ; 

‘Write printer 

0WPRINTER; PRINTER <- Stack&-1, goto[MiscTai1], at[MiscDisp,13]; 
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•BitBLT 

BitBLT: Stack&-1, LoadPago[bbp2], Opcodef365]; 
T <- Stack8r+1, goto[MesaBitDLT]; 


•STARTIO 

0STARTCO: 

* T «- stack&-l, LoadPagefEEPage] , Opcode[36G'J; 

T <- stack&-t, LoadPagefopPageS], Opcode[366]; 

goto[preEF.SIOJ, RTEMP1 <- lc; *RTEMP1 is tlio return indicator (Mesa/Nova) 


*3 RAH 

0J RAM: T <- sUn implemented, gotofkfcr],0pcode[367]; *Nova - flavored 9 HP RAH 
*DSf 

0DST: T <- HexLDatafIBuf] , 0pcodc[370]; 

t *• ( LOCAL) 1 ( t) , 1 oadpagofxf pagel] ; 
tisectask,cal 1 [SaveState] , xftemp *- t; 

T < (xftemp) + (12c).; 

Pstorel[MDS, xfHY], goto[P7TaiIj; 

•1.ST 

0LST : T <- NextDataflBuf], Opcodo[371]; 

call fSavPCinFrame], xf Temp <- T;* NextData must be before SavoPC call 
GOTOfl.SIT go], T <- (xfTetnp); 

*TSTF 

0I.STF : T - Nux tData[IBuf J, Opcodo[372]; 

MomStal <• (FreeFramo); * Set FreeFlag 

LSTFgo: r <• (I.OCAL) + (T), LoadPagofxfpagel]; 

GOTOp[l.oadState |, xfTcmp <- T; * xffemp is pointer to saved state. 


*WR 

@WR: T «- NextData! IBuf] , Opcodc[374]; 

xftemp | , loadpago[xfpage 1]; 
di spa tcli[ x f temp, 16,2 ] ; 

onpage[xfpagel]; 
disp[xfwr] , T <- stackS-1; 

xfwr: go to[Mi sc Tai 1 ] , xTv^dc <• T , at[ xfwrtab. 1] ; 

goto[MiscTail] , xfXTSreg <- T , at[xfwrtab,2 |; 

*=***•*•* Start of Pilot Code **«*»»*«*****•*•*•••**•*****»*•***«*«•*•«•» 
MDShi <- V , atf xfwrtab,3 |; 

T <- MDShi (fSlt| MDShi , 10 |) (T); 

LOCALhi <- T; 

GLOBALhi e T, goto[MiscTail]; 

*=***»*»* End of Pilot Code **«***««*»***«*••*♦******»*****»*•*»**«*«**•* 
*RR 

0RR: r ♦ NoxtData[IBuf] , Opcode[375]; 

xftemp *■ T , loadpage[xfpagel]; 
dispateh[xftemp,15,3]; 

onpage[x fpagel]; 

LoadPage[A], dispf xf rr]; 

xfrr: gotop[ PushT] , T <- xfv/dc , at [ x f rr tab, 1]; 

gotopfPushT] , T *- xfXTSi'eg , at[xf rrtab, 2 ]; 

gotop[PushT] , T *■ xfXTPrcg , at[xf rrtab, 3] ; 

gotopf PushT] , T «- xfATPrcg , atfx f rrtab , 4] ; 

gotopfPushT], T <- xfOTPreg , atfxf rrtab,&"] j 
gotopfPushT] , T *- MDSb i , atfxf rrtab , G] ; 

*BRK 

0LIRK: t <- zero , gotofkfcr] , Opcodof 376]; 


•Cause pagefault trap - done only by fault, is not supposed to be encountered ininstruction stream. 
TrapFlap: T <- (PCFReg)-l, Opcodef377]; * back up PCF by one 

• R TEMP <- T, l.oadPagef Fault Pagel]; 

RTEMP <• T; 

PCF *- RFEMP, gotopf preStartMemTrap] ; 


•Unused opcodes on page 7 

T «- sUnimplemented, gotofkfcr], 0pcode[373]; 


* Following codes added to provided external reforrences 

0nPage[opPago3]; 
preEESIO: RTEMP <- ( 1400c); 

RTEMP «• (RTF.MP) or (105c); 

APC&APCTask <- RTEMP; 

Return; * goto EESI0 of the EtherTask at 1505 

preStartMemTrap : RTEMP «- (6000c); 

RTEMP <- (RTEMP) or (16c); 

APC&APCTask «- RTEMP; 

Return; • goto StartMomTrap of the Fault at 6016 


•SUBROUTINE PNIP puts the number in T into the maintenance panel 
•It will be used after initialization is complete 
•Does not task unless called from task 0 
ONPAG Ef 0]; 

PNIP: usectask, RTEMP <■• T, atfPNIPBase, 20]; 

T «- APC&APCTask, atfPNIPBase , 17]; 

RCI1T <- T, ClearMPanel, calif. + 1], atfPNIPBase, 0] ; 
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i'Mloop: RTEMP'i <• 4C, at[PNIPRase,1]; 

RTL'MP 1 «- (RlEMPl)-l, dblgoto[ . >■ l, . , ALIKO] , at[PNTPOase,6]; 

RTEMP *■ (RTEMP) - 1, at[PNIPBase, 7]; 

lu *■ t d f [ RCNT, 0,4 j, cioto[ PNdone , ALU<0'], at[PMIPBase, 16 |; 
ski|>[ahi//0], at[PNXPBase,4]; 

IncMPanol , return, atfPNIPBase,2]; * task 0, tasking ok 
XncMPanel, goto[PN'loop], at[PNTPBaso,3 ]; * task I/O, task ing not al lowed 
PNdone: APC&APCTask <■ RCNT, at[PHTP!lase , 5]; 
return , at[PM CPflase, 15] ; 
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insertfdOIang|; 

MOM I DASIMIT; I. ANG VERS ION; MUl.TDIB; 
inso rt[G1oba1Dof s ]; 

TXTL.E-I NovaFinul ato r j; 

♦Last Modified by Johnsson October 9, 1979 4:48 PM, Mesa 0.0 JMPRAM 

" Modified by Chang .September 7, 1979 4:30 PM, clean page 2 

* Modified by Chang August 20, 19/9 6:40 I'M, move rimer’s legs 

* Modified by Johnsson June 13, 1979 1.0:56 AM, remove at’s on pago 0 

* Modified by Johnsson June 11, 19/9 11:41 AM, movo MulDiv 

* Modified by Chang May 27, 1979 2:07 PM, nail down nelJoskip 

* Modified by Johnsson May 9, 1979 2:28 PM 

* Modified March 27, 1979 3:28 PM by Sandman 

SP.T[noBase , I shift [nePago, 10]] j 

ONPAGFfnoPnge]; 

♦Dispatch base addresses 
SE f[ne ED, A0I)[neO-ise, 20 J J ; 

SE T £ 11 oC Y, ADD [ n oB a s a, 4 0 ] ]; 

SET|'nef une t, ADDf ncOasc , 00] ] ; 

SEr£ noSHO,ADDfneOase,100]]; 

SET[ neSil l, AddjncDaso , 120]]; 

SF.T[ no InX , Add[neI!aso , 149]]; 

So t[ J tab, Add| nellase , 160]]; 

Set [HEX A, Addf nellase, 220] j; 

Sot[NfXB, AddfnoOaso,240]]; 

SetfNEXC , Addj nellase ,260]]; 

* Sot[nePagel, 2]; 

Sot[nel’agel, 0]; 

So t[ neNosk ip lor.,Add[1sh if t[nePago,10 ],273]]; 

Set[ mdl’age ,11]; 

*Nova Emulator 

♦Assumes that PC is in the base register PCB and in PCF. On entry, 

"PCF points to the First (even) byte of an instruction. Odd entry 
♦points are ncSkipx, neNosk ip. Even entries are noSkip, neNoskipx. 

•The instruction at location 1 (BuffcrRofi11 Trap) is 
*'loadpage[0|, goto[377|’, which sends control to location 377 
♦on the page that did the (aborted) Nextlnst/NextOata. Wo would 
♦like the instruction at 0 to be a Pfetc!i4, but alas, DF2 addressing 
♦doesn't work, since this is the only case in which an aborted 
"instruction is not executed immediately, and 112 is noL loaded 
"in the cycle following an aborted instruction (so the displacement 
♦won ' t be loaded) . 

MovaRefill: golop[.+l], Pf o tch4[ PCB , IBUF , 4 ] , at[nol)ase , 3 77] ; 

ONPAGE[0]; "buffer refill for Nova 

PCB < (PCB) ^ (4C); 

PCF «- RZero; 

I ntTest: 

LoadPagc] nePago 1] ; 

lu <- NWW, gotop[ . 1 2 , R>-0] ; 

onpagofnePagel]; 

return; "interrupts are disabled 

go to[ . 1 2, AI11//0] , T < (11400) or (52C); "start base register setup 
return; "no ponding interrupts 
DMA < T,usee task; 

T <- apc&apctask, task ; 
intRTN <- F; 

Pfetch2[DMA,WW, 0]; "fetch V/W and ACTIVE 
T <- NWW; 

WW <- r »• (WW) or (T) ; 
r <- (ACTIVE) AND (T) ; 

G0T0[ infra, AI.U//0] , RTEMP < T; 

NWW «- (0C); "no active interrupts - inactive ones are in WW - clear NWW 

PS TORE1[DMA,WW,0]; "store WW, FASK 

APC&APCfASK <- intRTN; 

intRFT: DMA <- 0C, return; "restore the base register 


"wo are going to start an interrupt 
i n t T 8: 

T <- INTX <- (1C) ; "INFX will contain interrupt mask 

NWW (100000C); "disable interrupts, c lear NWW 

CAI.L[ intTBA] , RTEMP1 <- T ; "RTEMP1 will contain interrupt level index 


intTBA: 

RTEMP *■ RSH[RTEMP,1], G0T0[intT9,R ODD]; "loop to get number of the highest priority interrupt 
T <- INTX <- ESII[ INTX, 1] ; 

RTEMP 1 <- (RTEMP 1) + 1, RETURN ; 


IntTO: 

WW «- (WW) AND NOT (T); "enter int routine - save other interrupts in WW 

PSTOREI[DMA,WW,0],task; "store WW at 452b, TASK 
T *- ( 1 df [GETRSPEC[ 127] ,14,3]); "recover the PC 
PCB <- (PCB) + (T); 

lu <- intRTN, goto[.+2,Rodd]; "intRTN even means we got here from neSkip, and 
♦we must increment the PC before saving it away 
PCB e (PCB) +1; 

T *■ (R400) OR (100C) ; 

PST0RE1[N0VA,PCB], cal 1[intRET]; "save PC at 500b, TASK 

T <- (RTEMP1) + (T), loadpage[nePage]; *T <- address of new PC 
gotop[BRIx]; 

ON PAG F. [ n e P ag o j; 

neSkip: FF1@[17], call[eSkip]; "neSkip is even 
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noNoskip: 1<- CNextData[JBUF] , callfneSl], atfneteosk ipLoc |; *neHosk1|> is odd 

Di spatcli[ H TEMP , 10,3 ], goto[NESx|; “dispatch 011 first 3 bits of opcode 

neSkipx: goto[neSkip]; *noSkipx is odd 

noMos k i px : goto[neNoSkip]; “nolioskipx is even 

eSKip: FF1G[1'/], goto[neNoskip]; “can't cause buffer refill 
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‘SUBROUTINE nesl does setup for 2Acr, instructions, calculates effective address 
♦for lAcc instructions. Returns R address of ACO in T. 

neS:l: RTEMP *- T, dbigotofneZAcc, no lAcc ,U2bit. 8 ]; 

ne2Acc: PCFfIBUF] *- rcy[PCF[ IBUF], 3"J; *put MoLoad bit into bit 10 

neSlret: T <- pACO, return; ‘“pointer to ACO 

nelAcc: DispatchfPCFfIBUF],5,4]; ‘“get Effective Address - dispatch on I, X, and disp.O (16 way) 
1)1 sp[ InXO] , T “• rhmaskfPCFfIBUF]]; 

InXO: EfAd «■ T, goto[noSlret], ATfnelnX,0]; ‘Page 0 

InXI: EfAd <- T, gotofneSlrot], ATfnelnX,1]; 

InX2: T *• (Id f[G ETRSPECf12 71,15,23) + (T), ATfnelnX,2]; ‘PC relative) 

T <- (PCD) + (T), gotoftnXO]; 

1 11 X 3 : T *■ (PCFf IBUF]) or (177400C), gotofInX2j, ATfneInX,3]; 

lnX4: T *- (AC2) + (T), qotoflnXO], ATfnelnX,4]; *AC2 relative 

Inx5: T <- (PCF[IBUF]) or (177400C), goto[InX4], AT[neInX,5]; 

XnX 6 : r <- (AC3) (T), gotoflnXO], ATfnelnX, 6 ]; “AC3 relative 

In x 7 : f <- (PCFfIBUF]) or (177400C), gotofInX 6 ], ATfnelnX ,7]; 

InXtO: Pfotchl[Nova 1 EfAd],goto[noSlretJ, ATfnelnX,10J ; * Page 0 indirect 
XnXl 1: Pf etc til [Nova , Ef Ad |, yotof 110 SI re t ] , A I [no InX , 11 j; 

[ n X 12 : T < (IdrfGFTRSPECf127],15,2]) (• (T), ATfnelnX , 12 ] ; “PC relative Indirect 

T <- (PCD) i- (T), gotofInXIO]; 

Xn X13 : T <- (PCFf IDUF ] ) or (177400C), gotofInX12], A! [ neliiX , 13]: 

I n X14 : T *- (AC 2) + (T), gotofInXIO], Al'fnelnX, 14]; *AC2 relative indirect 

I 11 XI 6 : T *• ( PCFf IBUF]) or ( 17/400C), gotof InX14]', A 7 f nolnX , 16]; 

T 11 X16 : T *- (AC3) ' ( f) , gotofInXIO], A I f ne InX , 16 |; *AC3 relative indirect 

T 11 xl 7: T <■ (PCFfIBUF]) or ( 1/7400C), gotofInXIO], ATfnelnX ,17]; 
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NESx : D1sp[neID0], RfEMP <- (1 df [RTEMP , 13,2]) + (T); 

‘Main instruction dispatch 

nelDO: Di spatch[ RTEMP, 16 , 2], goto[Jdisp], AT[tieID,0]; ‘jumps 
nelDl: STKP <- RTEMP, gotofLDA], AT[iieID,lJ; ‘Ida 

noID2 : STKP <- RTEMP, goto[STA], ATfneXD,2]; *sta 

neTD3 : lu <- idf[PCF[XBUF],3,1], goto[XOPA], AT[noID,3]; ‘extended ops 

noID4: T <- ACO, gotofgotCY], AT[noID,4]; ‘arith(ACO) 

neXD5: T <- AC1, goto[getCY], Af[noID,5]; ‘nrith(ACX) 

noID6: T <- AC2 , goto[getCY] , AT[noID,6]; * a ri th( AC2 ) 

neID7: T <• AC3, goto[getCY], AT[neID,7]; »arith(AC3) 

LDA: . Stack&-1, l-Ft@[17], task; ‘Since Fetches to the stack increment STKP 
T «- EfAd; 

Pfetc hi[Nova,Stack], go tofneNoskip] ; 

STA: T <- EfAd; 

P S t o r o l [ N o v a , S t a c k ], c a 11 [ x 11 P G 2 R E T ] ; 

IIQ[1/|, goto[noNosk ip] ; 

*Jmp,JSR.ISZ.DSZ - enter with dispatch on function pending 
.Jdisp: Disp[Jmp], T <- ETAd; 

Jmp: PFotch4[ Nova, TBUF|, AT[Jtab,0]; 

Jiiipx : PC 13 «- T, T <- T, call[Jtsk]; ‘bypass kludge 

T <- CNoxtData[XBIJF], callfneSl], atfneBase, 15]; ‘cannot cause IBiJF refill (but must be 
"in an odd location, since it is the return from IntTost (via Jtsk). 

Di spatch[R TEMP, 10,3], goto( NF.Sx]; 

“SUBROUTINE Jtsk Updates PCI) and PCF, then tests for interrupts 
Jtsk: PCB <- 1 sli[PCB , 1] ; 

PCF <- PCB, PCB «- T; 
loadpage[0]; 

PCI) <- (PCB) and not (3C), go to[ In tTos t ]; 

JSR: . PFetch4[Nova, II3UF], AT[Jtab,l]; 

T <- PCB, cail[CPCl]; ‘recover the PC 
AC 3 <- T; 

T <■ EfAd, goto[Jmpx]; 

ISZ: Pfetch4[Nova, xBuf], AT[Jtab,2]; 

EfAd *■ lcy[Efad,4], call [neXsetup]; 
t)B[xi3uf] <- (DBfxBuf ]) + l, goto[DSZx]; 

DSZ: Pfetch4[Nova , xBuf |, AT[Jtab,3]; 

EfAd < I cy[Efad , 4 |, call[noXsetup]; 

DO[xfiuf] <- (DB[xBuf]) - 1; 

DSZx : KF1@[ 17], FREEZERESU1.T; ‘advance PC, let DB be wr itten 

PStoro4[Nova, xBuf], db1 gotofneSkip, neNoskip, ALU-0]; 

‘Set up DB to point to the register addressed by the 1 ow Lwo bits of Ei'Ad. 

‘Call with: r «- lcy|EfAd, 4], call[neXsotup]; 
noXsetup: DB <- EfAd; 

BBFBx, return; ‘advance DB to DBX 

GPC1: T < ( ldf[GETRSPEC[127j,14,3]) + (T) “1, return; 
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*? Accumulator instructions. ACS is in T 

gelCY: D ispatcli[PCF[ IBUF] , 16,2]; "dispatch on carry field of instruction 

Disp[neCY0J, Stkp <- RTGMP; "load index anil dispatch 

neCYO: Dispatch[PCF[IBUF],10,3], AT[neCY,0]; "Cin <- CARRY (in bit 0 of Carry) 
Disp[neFunctO'|, ill «- Carry; 

110CYI : D ispatch[PCF[lBUT] ,10,3], AT[neCY,l]; *Cin <- 0 
Disp[neFunctO], in <- 0.C ; 

neCY2 : Dispatch[PCF[HiUF] , 10,3], AT[noCY,2]; *C 1 11 <- 1 
D isp[noFuNClO J, in 100000c; 

neCY3: D i spatch[PCF[IBUF] , 10,3], AT[neCY,3]; "Cin <- CARRY* 

D i sp[neFunct6], lu <• (Carry) xor (100000c); 


neFuiictO: 
noPunctl: 
neFlinct2: 
noFunctS: 
neFunct4: 
n 0 F u n c 16: 
neTunc t6: 
neFunct7: 


T <- (Zero) xnor (T), ilblgoto[ntcl,:itc0,AI.U<0], Ai'fneFurict. 0 ]; ‘coin 
T «- (Zero) - (T), dblgotof tci, tcO , AUK0] , A If neFunc t, i ]; "nog 
dblgoto[ntci , ntcO,ALU<0], AT[noFm»c t, 2 J; "rnov 

T < (Zero) + (T) +1, db 1ijoto[ t c 1, tcO , AUK 0 |, A r[nei'unct., 3] ; »inc 
T <- (Stack) - (T) -1, dblgo to[ tel , tcO, Al.U<0] . A rj'noFunr.t, <1 J ; *adc 

T <- (Stack) r (T), dbl got o[ t cl, tcO, ALLK0 ] , AI [ iieFunc t , 5] ; "sub 

T <- (Stack) + (T), db Igoto[tcl, tcO, ALU<0 j, AT[iioFunr.1,6] ; *add 

T *- (Stack) and (T), db Igot o[n tel, n tcO, AI.U<0 J, AT[noFunc t, 7 J; *aud 


*A1.UCY has no effect on carry - dispatch on shift Mold 
ntcO: DispatchfPCF[1UUF],13,2], gotofC.outO]; 

ntcl: Dispatch[PCF[IBUF],13,2j, goto[Coutl|; 


*Al.UCY complements incoming carry - dispatch on shift field 

tcO: D i spa tch[ PCF[ IBUF] , 13,2 j , dbl go tofCou 11, Con 10, Ca r r.y ]; "incoming carry was 0 

tci: D i spatch[PCF[IBUFj,13,2], dblgoto[Cout0x,Coutlx,Carry]; "incoming carry was 1 

CoutO: Di sp[neSHOO] , Resu l t *• T; 

Cout 1: Disp[neSHlO], Result <- T; 


CoutOx: Di spfnoSIlOO], Result T; 
Cout lx; Disp[noSH10], Result <• T; 


"Shift dispatch for final carry = 0 

noSHOO: PCF[IBUF], lu <• T, dblgoto[noloadO, loadO, Rodd], AT[neSH0,0]; "no shift 

neSIIOl: T < Result. «- 1 sb[Result. 1] , AT[ 110 SIIO . t J, dbl go to[ f r. 1, fcO, R< 0 j ; "left shift 

neSII02: T *- Result < rs h| Resul t, 1] , AT[ neSIIO , 2 ] , db I gotoT fe 1. f cO , Rodd ]; "right shift 

neSII03: T *■ Result *• 1 c,y[ Resul t, 10] , AT [neSIIO, 3] . goto[fcOJ; "swap 


"Shift dispatch for final carry = 1 

neSHIO: PCF[IBUF]. lu > T, dblgotofno1oad1, loadl. Rodd], ATfneSli 1,0]; "no shift 
neSHll: T * Result <- ( I sh[Resu 11,1] ) '• 1, AT[neSlll, 1], dblgoLo[f c 1, f cO, R<0 ]; "left shift 
neSH12: Result < rcy[Rosul t. 1] , AT[ neSlll, 2] ; "right shift 

T <■ Result «- (Result) or ( 100000C)', dblgo to[fc 1. fcO, R < 0 |; 

neSH13: T <- Result <- 1 cy[ Resul t, 10] , ATfneSIll, 3] , gotoffcl]; "swap 

fcO: PCFfIBUF], lu <■ T, dblgotofno IoadO, loadO, Rodd]; "test NoLoad, set to test Result=0 

tci: PCF[1BUF], 1 11 *- T , db 1 goto[no 1 oad 1, loadl, Rodd]; 

noloadO: T <- Stack, dblgoto[cZrZ,cZrN,ALU=0]; *T < original ACD 

loadO: Carry «- 0C , dblgot6[cZ rZ, cZ rN, ALU=0]; 


noloadl: T <- Stack, db1goto[cNrZ,cNrN,ALU=0]; 

loadl: Carry «- 100000C, dblgoto[cNrZ.cNrN,ALU=0]; 

cZrZ: PCF[ IBUF] <- (PCF[IBUF]) and { 16 0 0 0 0 C ) , gotoftsk]; 

cZrN: PCF[IBUF] <- (PCF[IBUF]) and (60000C), gotoftskj; 

r.NrZ: PCF|'IBUF] < (PC.F[IBIJF]) and (120000C), goto[tskj; 

cNrN: PCF[IBUF] <- (PCF[IBUF]) and (20000C), goto[tsk|; 

tsk: Stack <- F, call[ncS2]; "TASK at last 

lu <- ldf[PCF[lBUF],15,2], db I go lo[ t s f , tsh , Rodd ] ; 

neS2 : PCF[IBUF] <- 1 df [PCI'[ IBUF], 0,3] , return; 

"Test skip, point PCF at first byte of next instruction (cannot cause refill) 
tsf: dblgoto[neSkip,neNoskip,ALU-0], F18[17]; 

tsb: db lgoto[neSk ipx , neNosk i px , ALU//0] , F'i0[17]; 
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NOVA AUGMENTED INSTRUCTION SET 


* 

60000 

CYCLE 

Left Rotate 


* 

61000 

DIR 

Disable interrupts 



61001 

El ft 

Enable interrupts 


* 

6100? 

BRI 

Branch and return from interrupt 


« 

61003 

RCLK 

Road Clock 


* 

61004 

SIC 

Start I/O 


* 

61006 

BLT 

Block Transfer 


* 

61000 

Bt.KS 

Block Store 


* 

61007 

“SIT 

Start Interval Timer - returns -1 


* 

61010 

JMPRAM 

Jump to RAM - only works if AC1 ~ 

420 (enters Mesa) 

* 

6101.1 

RDRAM 

Read RAM - returns -t 


* 

61012 

WRTRAM 

Write RAM - NOP 


* 

61013 

DIRS 

Disable interrupts and skip if on 


♦ 

61014 

VERS 

Version - AC0 <- 400000 


* 

61015 

“OREAD 

Double-word road (altoll only) 


* 

61016 

**DWRITE Double word write (alt.oll 

only) 

* 

61017 

“DEXCH 

Double-word exchange (altoll only) 

* 

61020 

MUL 

Unsigned Multiply 


* 

61021 

DIV 

Unsigned Divide 


* 

61022 

“DIAGN0SE1 Diagnostic (altoll only) 


* 

61023 

“DIAGNOSE2 Diagnostic (altoll only) 


* 

61024 

BITBLT 

Bit Block Transfer 


* 

64400 

JSRII 

Jump to subroutine, double indirect, pc relative 

* 

65000 

JSR.TS 

Jump to subroutine, double indire 

ct, ac2 relative 

* 

67000 

CONVERT 

Scan conversion of characters 


* 

NOTE : 

instructions with 

** are not implemented, and will 

bomb out if execute 


‘Dispatch to f! main extended opcodes. Enter with ALU = Inst rue t ion. 3. 

XOPA: Dispatch[PCF[IBUfJ,4,3 ], go to|' xnUNIMPTRAP . ALU//0 |; *70000 - 77777 are unimp 1 omen ted 

Disp[Cycle], T <• EfAd; 
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♦Left cycle ACO by i ns t[ 12 - 15d], or by AC1 If count Is 0. 

Cyc le: RTF.MP <- 17C, goto[ .+3,ALU//0],AT[NEXA,0]; ‘cycle - Test EfAd for 0 

T <- AC1; ‘cyc le by AC1 i f count = 0 
EfAd <- T; 

EfAd <- (F.fad) -1; 
rn CMP <- (II fl-MP) - (T); 

CycleControi <■ EfAd, TASK; 

T <- RF[ACO]; 

CycleControi «• RTF.MP, goto[ .+2 , R<0] ; 

T *■ (WrA[AC0]) or (T); 

ACO T, F1®[:17], goto[noNosk ip]; 

‘Opcodes 61000 ■ 61024 

XOP1: In <- ldf[PCF[XBUF],13,l], AT[NEXA. 1]; Host bit lid 

DISPATCH[PCF[IBUF ],14.4], DBLG0T0[ xnXAXA , xnXAlfi, AI.U = 0 ]; ‘dispatch on bits 12 - L5d 
xnXAlA: DISPfDIR]; 
xnXAlB: DfSP[MUL]; 

♦Opcode 02000 - unused 

*xnXA2: GOTO[xnUHIMPTRAP], AT[NEXA,2] ; 

‘Opcode 63000 - unused 

* x 11 XA3 : GOT0[ xnUHIMPTRAP] , AT[NEXA . 3] ; 

MSRII - 64400 

JSRII: PFETCII1 [Nova , EfAd] , AT[NEXA , 4] ; 
xnJSIII: call[xnPG2RET]; 

T < EfAd; 

Pi ETCIIl[Novn , EfAd] , cal l[xnPG2RET]; 

7 <- EfAd. goto [.1 SR|; 

*JSRIS - 60000 

JSRXS: PFETCH l[Nova,EfAd],G0T0[xnJSRl]. AI[NEXA,6]; 

"■Opcode 66000 - unused 

*xnXA6 : GOTO[xnUNIMPTRAPJ , AT[NEXA , 6] ; 
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“CONVERT - Opcode 670xx 
•Reg i s tens: 

• acO: destination word address minus NWRDS 

• ac2 + riisp points to two word block: 

• word 0 NWRDS -- number of words per scan lino (< 400c) 

• word 1 dba -- minus dost bit addr mod 20c 

• ac3: pointer to word xh of the character descriptor block 

•Character Descriptor Dlock: 

• words 0: xh-1 bit map for character 

• word xh: xw --- (2*width) + 1, or (2*psoudochar) if extension required 

• word xh+1: lid, , x h -- (scan lines to skip),,(height of bit map) 

•NOTE: This Instruction looks like an @AC2 instruction, so at entry EfAd contains the first word 
•of the 2-word block above (i.e. NWRDS). 

•Tho high halves of base registers SMA and DMA arc assumed to be sot up. 

CONVERT: T <- 1 df [PCF[ UlUF'J, 10 , 10] , AT[NEXA, 7] ; "displacement 

T <- (AC2) + (T) i- 1; 

PFETCH1[Nova,AC1], cal I[AC3toT |; •fetch dba 

PFETCMlfNova,RTEMP] ; *fetch solf-relativo pointer to xw 
T<“AC0 , TASK; 

DMA <- T, FF1S[17]; •setup for later, advance PC 

T«-RfEMP; • sol f-rel at i vo pointer to xw 

T*-AC3< (AC3 ) * (T) +1; *add po inter 

PFETCII l[No va , xnXllj ; •fetch hd,,xh 

AC X <- T ♦- (ACL) AND (17 C) , TASK; ‘mask dba 

RTEMP <- 1GC; 

it TEMP < (RTEMP) - (T); 

T< Ef Ad, CALL[FIXDMA] ; "DMA* DMA + (lid*xnNWRDS) 

FIXDMA: xnXII« (xnXII) i-(177400C); 

DMA*-( DMA) * (T), GOTO[DMAf i xod , ALUC0 ]; ‘when done, DMA will point to tho first dost word 
xnPG 2 RET: RETURN; 

DMAfixed: AC3*-( AC3) -(2C) ; “back up AC3 to the start of the block (AC3 <- AC3 - xh -2) 

xnXH*-T< (I.DF[xnXIl, 10,10]) .1; ‘also decrement xli 
T<~ (AC3 ) - ( T) - l, TASK; 

SMA*-T; 


xnCVLOOP : SMA*-T<-( SMA) +1; 

PFETCHl[Nova,AC3] , task; •fotcli source 
XBI <- pXOuf; 

xnXID (xnXIl)-1, GOTOfxnCNVEND , R<0 ] ; “test count 
PFETCH4[DMA,xBuf,0]; ‘fetch dost 

T «- ( 1 df| DMA , 16,2]), task; *use Stkp to index xlluf 
XBI <- (XBI) + (T)'; 

Stkp <• XBI; 

C.yc I oCoii t i o I < AC1; 

T *- (RI[AC3]), task; ‘source contribution to first dost word 
Stack <- (Stack) or (T); 

Cy cl oCoii t rol <- RTEMP, goto[.+2,R> = 0]; 

PSto ro-1[DMA, xBuf, 0 ], goto[CVXxj; ‘source exhausted 

T * WTA[AC3]; ‘source contribution to second dest word 

XBI *■ (XBI) * 1, gotofxnCVX, ALU : 0]; * if it is zero, we a ro done 

lu <- 1dfjXBI,1G,2]; "check whether we arc still in the quadword 

Stkp < XBI, goto[doSing1eWord,ALU-0]; 

Stack <- (Stack) or (T), goto[xnCVx]; "OR the second Dost word 

doSingleWord: Pfetchl[DMA, xnDEST, 1]; "fetch second dost word 
cal 1[xnPG2 RET]; 

xnDEST < (xnDEST) or (T); "so xnDEST will be written 
Ps to rel [DMA, xnDEST, 1] , call [xnPG2RET]; *UGII 
nop; "allocation constraint 

xnCVX: PSto rod [DMA, xBu f , 0]; *5101-0 buffer 
CVXx: T <- EfAd; "get NWRDS 

DMA*-(DMA) + (T), G0T0[xnCVLOOP]; 

xnCNVEND: AC3 <-■ RSH[AC3,1], dblgoto[NeSkipx,neNoskipx,Rodd]; 

AC3toT: E *■ AC3, return; 


% 

xnCVLOOP; 5MA*-T*-(SMA) + 1; 

PFETCHl[llova,AC3],CALL[xnPG2RET]; ‘fetch source 
xnXH<-(xnXIT)-t, GOTO [xnCNVEND, R< 0 J ; ‘test count 
PFETCIIt[DMA, xnDEST, 0]; ‘fetch destO 
CycleControl <- ACl.task; 

T *- RF[AC3 3: “source contribution to first dest word 
xnDEST <- (xnDEST) or (T); 

Pslorel[DMA, xnDF.ST.O]; 

CycleControl < RTEMP, goto[. + 2 ,R>=0]; 

T ♦- EfAd, goto[CVXx]; 

T *- WFA[AC3]; ‘source contribution to second dest word 
goto[xnCVX, ALU=0]; 

Pfetchl[DMA, xnDEST, 1], cal 1[xnPG2RET]; ‘fetch second dest word 
xnDEST <- (xnDEST) or (T); 

Pstorel[DMA, xnDEST,1]; 
xilCVX: T*-Ef Ad; "get NWRDS 
CVXx: DMA*- (DMA) + (T), G0T0[xnCVL00P]; 

xnCNVEND: AC3 *- RSFI[AC3,1], dbl go to[NeSki px , neNosk i px , Rodd]; 

AC3toT; T «- AC3, return; 

% 
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''Extended Opcodes with no displacement or parameter 

DIR: NWtJ <- (NWW) OR (100000C),goto[ComRet], AT^NEXB.O] ; *c!ir - G1000 

ElR: T *■ (R400) OR (5ZC),goto[EIRcom], ATfNEXB, 1 j ; *eir • G1001 

EIRcom: PI ETCIil[Nova ,WW j, CAI.L[xnPG2RET] ; 

T <- WW; ' 

NWW <• (NWW) OR (T); 

NWW <- (NWW) AND NOT (100000C); 

PCF[ II3UF], (Jblgoto[EIRz,DRIy,Rodd]i 

FTRz: T «- PCD, cal l[GPClj; *EIR must tost for interrupts NOW. Vie simulate JMP .+1 

T «- T, go to[JMP]; 


RRI: T <- (R400) OR (52C), goto[EIRcom], AT[NEXB,2] ; »bri - 61002 

BREy: T <- (11400) OR (100C); '"fetch PC from location GOO 

BRIx: PFE rcillf Nova , F.fAd] , CALI.[xnPG2RF.T] ; 

T ♦- EfAd, go to[ JMP] ; 


RCLK: T «- (R400) OR (300 ), AT[NEXB ,3] ; *rclk - 61003 

PFETCII.l[Nova, ACO]; 

* RTEMP <-• (326C) , TASK; ’"Get RTCl.OW from task 1G ' s R's 

RTEMP <- (35GC) , TASK; '"Get RTCl.OW from task 16's R's 
STKP <- RTEMP; 

T *- LDF[STACK, 1, 12] ,G0T0[xnNRDOVF , R>=0]; 

"the low bits overflowed, but the display 

•hadn't gotten around to updating the high bits yet. 

AGO <- (ACO)H; 

xnNRDOVF: AC1 T, goto[neNoskip],FF1@[17]; 

SIO: T <- ACO, 1 oadpuge[opPago3'J, AT[NEXB,4|; "sio 

HI F.MP1 <- Oc, gotop[preEESIO]; *RTEMP1’ 0 means return to Nova 
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*BLT and Dl.KS 

"slow straight forward bit with no checking for sourco and dost overlap 

* registers: 

* rac.0 address of first source word - 1 (Bl.T), or data to bo stored (BLKS) 

* racl address of last destination word 

* rac2 unused 

* rac3 negative word count 

*!JI.T - 01005 

BLT: AGO «- T "• (AGO) +1, AT[NEXB, 5]; "bit 

BLTx: Pfatchl[Nova, RTEMP], cal I [xnPG2RF.T]; ‘fetch source 

Bloop: lu <• AC3; 

AC3 «- T <- (AC3) + 1, goto[BLdone, A L U=0 ]; "test count 0 and increment it 
T *■ (ACl) + (T), loadpage[0]; "form destination address 

Pstorol[Nova,RTEMP], cal 1p[IntTost]; *the return link must be odd, so that if an interrupt 
"occurs from IntTost, the saved PC will not be incremented... 

PCEfIBUF], dblgoto[BLTxx,BLKSxx,Rodd], at[noBaso , 7 j ; “thus, this location must be odd 
BITxx: AGO*- T <• (AGO) ► 1, goto[BLTxj; 

BLKSxx: T *- ACO, golo[BLKSx j; 

BLdone: AC3 <- 0C, goto[ComRet]; 

"IlLdonc: AC3 <- 0C, goto[STAq]; "STAq ref ills IBUF and advances PC 


"BLKS - 61006 

BLKS: r <- ACO, AT[MEXB,6]; *blks 

Bl.KSx: RTEMP <- T, goto[Bloop]; 

"SIT - 61007 

"SIT: GOTO[xnUM1MPTRAP], AT[NEXB,7] ; "sit 

JMPRAM: T «- 20c , AT[NEXB,10] ; "jmpram - 61010 
lu <- (rhmaskfAC l]) xor (T) ; 

T <- AGO, goto[NE toMesa , a 1 11 - 0 ] : 

GOTO[xnUNlMPTRAP] ; 

NEtoMosa: 

CLOBALlii <• 0C; "Initialize some Mesa Emulator registers 
LOCALIri <- 0c; 

MEMSTAI <- 0c; 
xfXTSReg <- 0c; 

MBS <- 0c; 
xfMX «- 1c; 

TickCount <? 3c; 
xfTemp <• T, LoadPage[7]; 

MDSlii «■ 0c, gotop[MStart]; 


ComRet: GOTQ[noNoskip], FF18[17]; "common ending for instructions which advances PC 
RDRAM: ACO *■ (ZERO) - 1 , GOTO[ComRel|, AT[NEXB,11]; "rdrarn - 61011 

WRTRAM: GOTO[ComRct], AT[NEXB,12]; "wrtram - 61012 (nop) 

*dirs - 61013 

DIRS: FF1@[17 j,AT[NEXB,13] ; 

WWW ( NWW) or ( 100000C), db Igo lo[neNosk i p, neSk i p , R<0] ; 

VERS: ACO <- (10000c), GOTOfComRet] , AT[NEXB,I4] ; "vers - 61014 

"DREAD: GOTO[xnUNIMPTRAP], AT[NEXB,15]; "dread 

"DWRITE: GOTO[xnUNIMPTRAP], AT[NEXB,16]; "dwrito 

"DEXCII: GOTO[xnUNIMPTRAP], AT[NEXB,17]; "dexch 
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*AC0, , AC1 <- (AC1 * AC2) + (AGO) 

MUL: loadpage[mdPage], ATfNEXC.O]; »mul 

cn 11 p|'Mult iply j , T «- ICC; 

GOTO[neNos kip],FF1@[17]; 

ONPAGEfmdPage]; 

‘Stops: 

*1 test, next mpr bit {ACl[V/]) t rshfACl] 

*2 add t to ACO 

*3 test carry 

*4 test ACOftV], rsli[AC0] 

'5 or one into high bit of ACt 

*6 or one into high bit of ACO 

*7 tost count 

‘S continue 

*9 finish 

Multiply: 

US EC f ASK , RCNT <- T; 

I <- APC&APCTASK ; 

RTEMP1 <- T, cn 11 [UMUI.8] ; ‘save return address 

UMUL1: db igoto[UMUL4a,UMUL.2 ,Devon] , AC1 «- rsh[ACl,l] ; 

UMIJL4a: dblgoto[UMUL7,UMUL6a,r even] , ACO < rsh[AC0,l] ; 

UMUL2: goto[ UMUL3] , ACO <- (ACO) + (T) ; 

UMUL3: db lgoto[UMUl 4b, UMUl.4c, nocarry] ; 

UMUL4b: db I go to[UMUL7 , UMUI 6a, r even] , ACO <- rsh[AC0,l] ; 

UMUL7: dbl go to[UMUL9, UMUI.8, R<0] , RCNT <- (RCNT) - 1 ; 

UMULGa: goto[UMUL7] . ACl <- (ACl) or ( 100000c) ; 

IJMUL4C: dblgoto[UMUL6,UMUI.5b , r even] , ACO <• rsh[AC0, l] ; 

UMUI.6: goto [UMUI. 7] , ACO * (ACO) or (100000c) ; 

UMUL5b: golo[UMUL6] , ACl <- (ACl) or ( 100000c) ; 


UMU1.9: APC&APCTASK <- RTEMP1; 
UMUL8: T «- AC2 , RETURN; 



Nova.me 


3-Nov-79 19:15:63 


Page 12 


“ACO,,AC1/AC2 . Quotient in ACl, remainder In ACO 
DIV: loadpage[nidPage],T <- AC2, AT[NEXC,1]; 

cal 1p[Div ido j, LIJ (ACO) - (T); “div 

F F1@[1/],1u «- RCNT,dblgoto[neSkip,neNoskip,Ravenj; “Advance PC 

l)NPAGE[mdPago]; 

Divide: dblgoto[noDiv,doDiv,carry],RCNT <■ 17C; 
noDIv: return; *RCNT odd means no skip 

doDiv: usectask; 

I <• apc&apctask; 

RTEMPt < T; “save link 
T «- AC2, cal 1[UDIVen ter] ; 

lu <■ rcy[Cnrry, l'|; “loop RETURNS to hero 

ACO <- (ACO) - (T), db lgoto[UDIVlt, .UDIVlf, Al.U<0]; “test flag 

UDIVlt: AC 1 (lsh[ACl,l]) + 1, dblgoto[UDIV3t,UDIV3f, R<0]; “no need to 
UDIVlf: dblgoto[UUIV2t,UOIV2f,carry]; “subtract ok, test carry 

U01V21: AC 1 f (lsh[ACl,1]) + 1, dblgoto[UOIV31,UDIV3f.R<0]; “put a one 

UDIV2 f’: ACO «- (ACO) + (T); “no carry - undo subtraction 

UD[Venter: ACl <- (1 sli[ACl, 1] ), db1goto[UDIV3t ,UDf.V3f, R<0]; “put a 

UOIV3 t: 11C NT «- (RCNT) -1, go to[UDlVdone 1, R<0]; 

ACO (lsh[AC0, :l]) + 1, dblgoto[UDIV4t ,U0IV4f , R<0] ; 

UDIV3f: RCNT < (RCNT) -1. goto(UDIVdono?, R<0]; 

ACO >- (lsh[AC0,l]) f dh lgo to[ UD FV41, UDIV4T, R<0 |; 

UDIV4t: Carry <• (Carry) or (lc), return; “set flag 

UI)IV4f: Carry «- (Carry) and not (tc), return; “clear flag 

UD IV don el: APC&APCTask <- RTEMP1, goto[UDIV4f]; 

UUIVdono2 : APC&APCTas k <- RTEMPt, goto[UDIV4f ]; ' 


test carry, quot <- 1 

in tFie quotient 
zero in the quotient 


ON PAGE [lie Page] ; 
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'"DIAGNOSE!: 

*xnXC02: GOTOfxnUNIMPTRAP], ATfNEXC,2] ;*diagnosel 


*OIAGNOSE2: 

*xnXC03: GOTOfxnUNIMPTRAP] , AT[NEXC,3] ; -diagnosoZ 


BITBLT: T *• 
AC 3 


Novah, LoadPage[bbp2], AT[MEXC,4]; 
<- T, gotop[Novaf)itllLT ]; 


•xnXCOG 
•xnXCOG 
*xnXC07 
*xnXC10 
*xnXCll 
*xnXC12 
"xnXC13 
*xnXC14 
•*xnXC 1G 
‘xnXClG 
* x nXC17 


GOTOfxnUNIMPTRAP], ATfNEXC,6] 
GOTOfxnUNIMPTRAP], ATfNEXC,6] 
GOTOtxnUNIMPTRAP |, AT[NEXC,7] 
GO!Of xnUNIMPTRAP], ATfNEXC, 10] 
GOTOfxnUNIMPTRAP j, ATfNEXC, 11] 
GOTOfxnUNIMPTRAP], ATfNEXC, 12"] 
GO I Of xnUNIMPTRAP], ATfNEXC, 13 | 
GOTOf xnUNIMPTRAPj, ATfNEXC,14] 
GOTOfxnUNIMPTRAP |, ATfNEXC,1G| 
GOTOfxnUNIMPTRAP], ATfNEXC,16] 
GOTOfxnUNIMPTRAP], ATfNEXC,17] 


save tho current pc + 1 in memory location 027b 

and jump to location pointed to by location 030b + inst[3,7] 


xnUNIMPTRAP: 

I <• ( I d f f G ETRSPECf 12 / ] , 14,3]) +1; 

PCI! (PCD) + T ; 

T <- (R400) OR (I27C) ; 

TASK , PSTORElfNova,PCR] ; 
r *- (R4 00) OR ( 130C) ; 

T <- ( Idf[PCFf I8UF J,3 ,G]) + (T) , gotofBRIx]; 


END: 
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* Standard preamble for xxxOccupied.mc files produced by Micro!) 

* last edited April 23, 1979 3:41 PM 

Insert[DOLang |; 

NoMi das In It; LangVe rs ion ; Mill t DIB ; 
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fiUILTINf insert,24]; 
insert[dOIang]; 

NOMIDASINIT; 

LANGVERSION; 

MULTDID; 

1nsert[GlobalDefs]; *task and page assignments 
TITLE[Ove rlay]; 

♦last edit by Chang, August 13, 1979 3:07 PM, RDC Integration 

* edit by Johnsson, June 15, 1979 3:24 PM, now registers 

♦edit by Chang, June 4, 1979 2:09 PM, for MIDAS Overlay booting 

♦edit by Chang, May 27, 1979 6:39 PM, for Overlay booting 

♦edit by Johnsson, May 15, 1979 3:27 PM, PMIP fix 

♦edit by Chang, May 10, 1979 8:31 AM, add now Ethernet ID 

♦edit by Sandman, April 0, 1979 3:50 PM 

♦Modified March 6, 1979 by CPF. Added fault handling 

RV[rIinkO,34]; ‘subroutine return link 

♦Registers for other sections of initialization 

RVfxCNT,20]; *used everywhere 

RV[DevIndex,2 1 ] ; *used in Devicelnit 

RV[contemp,22 ]; ’used in Devicelnit 

RV[initrO,40]; ’used in DiskOoot 

RV[initrl,41]; ’used in DiskOoot 

RV[initr2,42'j; ’used in DiskOoot 

ltv£ In It r3,43]; ’used in DiskOoot 

liVfE r ro rCnt, 44] ; ’used in DiskOoot 

RV[ErrorCountx,45]; ’used in DiskOoot 

RV[temp, 51]; 


INSERT[DMdofs]; 

Sot.Task[0]; 

* MC[NextDiskAddr,237]; 

RV[0ootDi skAddr,37 |; *RDC Integration 

MC[CSMemStart,4000]; * temporary memory starting address for CS image 

RV[MemAddr,61]; * current address for CS image 

RV[Ve rsion ID,52]; 

"Maintenance Panel Normal Operation Codes: 

MC[StartDiskOoot,1/0]; * 120d 
MC[Sy stemRunni ng, 202 j; * i.30d 

"Maintenance Panel Failure Codes: 

MC[NolFnoughMemory,145 ]; * 10 Id 
MC[OndMap,146]; «L02d 
MC[NoDiskStatus,17 1]; *12 Id 
MC[BadBoot, 172] ; *122d 

SETTASK[0]; 

OnPngo[Ini(Page]; 

BootSecondOlock: LoadPage[LoadCSPage]; 

gotop[0ootS01ock]; 

OnPage[LoadCSPage]; 

OootSOlock: xCNT <- TFaultAdd; 

s tkp<-xCNT; 

LU <- (stack) and (40000c);"check Midas Present bit in FFAULT 
goto[BootLoador, alu//0]; 

MemAddr <- CSMemStart; 

* Skip VersionID at location CSMemStart (4000) 

* ClearMPanel; ***•*•**«*•**»»***•**»* remove this word after testing 

* xCNT<NextDiskAddr; 

* Stkp*-xCNT; 

* t<-stack; *get next disk address from reg 237 

t «■ BooLDi skAddr; "sot next disk address from reg 37 

xCNT<-t; 

DMA«-( 1000c); *dcb address 

pstorel[DMA,xCNT,IOCBDiskAdr!],call[LoadCSRet];’next disk address 
readnextblock: 

* IncMPanel; **•*•****•»*••»*****•** remove this word after testing 

ErrorCnt<-( 10c); 

sotdeb: 

Devlndex *- (zero) - 1 ; 
initrO <- 0c; 
initrl<-0c; 
in i t r2<-0c; 

ps tore2[DMA,InitrO,IOCBNoxt],cal 1[LoadCSRet]; 

1nitr3*-0c; 

t<-( R400)o r( 120c); 

pstore4[Nova,in itrO],cal 1[LoadCSRet];*clear disk communication ceils 

xCNT«-(zero) ; ’disk status 

psto re1[DMA,xCNT,IOCBStatus],cal 1[LoadCSRet]; 

xCNT"-(44000c); ’disk command 

psto rel[DMA,xCNT,IOCBCommand],cal 1[LoadCSRet]; 

xCNT<-( 1400c); ’header address 

pstorel[DMA,xCNT,lOCBHeaderPoin te r],call[LoadCSRet]; 
xCNT<-(2000c); ’label address 

ps to re1[DMA,xCNT,IOCBLabelPointer],call[LoadCSRet]; 
xCNT<-(3000c); ’data address 

psto rcl[DMA,xCNT,IOCBDataPointer].call[LoadCSRet]; 

’ start the disk 

startdisk; 




Overlay.me 


3-Nov-73 19:15:63 


Page 2 


init rlt-lOOOc; * word 521. -- IOCB pointer 

in itr3< (zero) - 1; * word 623 = -1 to force a seek 

t«-(R400)••■( 120c); * store into 520-523 (words 0 and 2 aro zero) 

pstoru4[Nova,initr0], call[LoadCSRet]; *dcb address 

* wait for completion 

ErrorCountx <- 20c; 

SetDW: Dovlndex (zoro)-l; ‘loop count for status wait 
WaitDisk: Pfetchl[DMA,xCNT,1]; *folch status word at 1001b 

T «- 1/C, cal 1[LoadCSRe t]; 
lu *■ ( ldf[xCNT,4,4]) xor (T) ; 
goto[Statusllere , ALU-0'], lu <• ldf[xCHT, 10, 10] ; 

Uevlndox <- (Dovlndex)-l; 
goto[WaitDisk, ALU//0]; 

ErrorCountx <■ (ErrorCountx) -1; 
go to [ So t()W, AL.U> = 0] ; 

LoadPage[InitPage]; 

T «- Not) iskStatus, gotop[In ItFail]; *1111100 out waiting for disk to store status 

StatusHero: dblgoto[HoFaultStatus, IncECount, ALU-0] , FREEZERESULT; 

NoFauItStatus: nop; 

cal 1 [loadm i] ; 
goto[roadnoxtblock]; 

IncECount: 

ErrorCnt <- (ErrorCnt)-1; 

goto[la ilBoot, ALU < O']; "bad header, try again 
goto[BootSBlock]; 

Fa i 1 Boot: Load Page]] Ini tPage j ; 

F <- Badiloot, gotopf Ini tFail ]; 

OnPagefInitPage]; 

LoadOtherCS: LondPage[LoadCSPagc]; 

xCNT <- FFaultAdd, gotop[.+lj; 

0nPage[LoadCSPagc]; 
stkp *- xCNT; 

LU <- (stack) and (40000c); * check for Midas Present 
goto[MidasPauso , a 1 u//0 ]; 

LPh'i zero; 

IP <■ CSMemStart; 
nrLMPl < zero; * Jump flag 
LoadPagc[ LflJPago]; 
go top[ l.RJenter ]; 


loadm i: 

usoctask; 
t«-apc&apctask; 
r I ink0< t; 

contomp<-(3400c) ; *last address + l of disk data 

nextmi: 

trr.on temp<-(con temp) -1; 

pf otchl[Nova,init r2],call[LoadCSRot]; 

t< contomp< (con temp) -1; 

pfotclil[Nova, initrO] ,call [LoadCSRet]; 

t <- 1 df [ in i t r2,0,14]; 

in i t r3< t; 

t‘ con temp*-(con temp) -1; 

pfotchi[Nova,init rl],call[LoadCSRet]; 

MomAddr «- t *• (MemAddr) + 1;* copy into memory 

pstorel[Nova,initr2],cal 1[LoadCSRot];*write into memory 

MemAddr *■ t <- (MemAddr) a 1;* copy into memory 

ps to re1[Nova,init r0],ca11[LoadCSRet];*write into memory 

MomAddr < t <- (MomAddr) t- 1;* copy into memory 

ps to rel.[Nova, init rl] , cal 1 [LoadCSRet] ; *wri te in to memory 

1 u*-( initr3)xnor( 170000c); *look for m i address = 7777 

goto[Trans fe rDono,alu-0]; 

t< Idf[contemp,7,10]; "look for mem address ’ 3001 

goto[ next in i , al u//0] ; 
t*-(2000c) ; 

pfotchl[Nova,xCNT],call[LoadCSRet]; 
nop; 

psto re 1[ FIMA , xCNT, IOCRD i skAdr! ] .call [LoadCSRet] ; *next disk add res s 
apc&apctask*-rl inkO; 

LoadCSRet: 

Retu rn; 

TransferDone: t*-(2000c); 

pfetclil[Nova, contemp], call [LoadCSRet] ; ‘"get next sector address 

* xCNT <- NextDiskAddr; 

* stkp*xCNT; 

T <- (contemp); 

* stack <- (T); * save the next disk address 

BootD iskAddr <- (T); * save the next disk address 
GOTO[Boot Loader]; 

BootLoader: LoadPage[InitPage]; 

gotop[Diskiloot]; 

MidasPause: NWW <- (100000c), ; 

MidasWait: Breakpoint, goto[MidasPause]; 


*************** added the following for overlay, will bo over-written later 
OnPage[I.RJPage]; 


Set[LRJBase,Add[lshift[LRJPage,10],300]]; 
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LRJen te r: 

t «- xfTemp «- lc, ATfLRJBase, 0]; 

nop, ATfLRJBase, 1];* wait for writs of xfTemp to avoid bypass problem 

I.RJ1 oop: 

pfetchl[!.P , xBuf2], ca'11fLRJIncCount] , AT[l.RJBaso, 2]; 
pf etchlfLP,xBuf],ca11fIRJIncCoimt,] , AT[LRJBaso , 3;i; 
pf etch 1 [I.P , xntif 1] , cal 1 [LRJIncCount'], AT[LRJBaso, 4]; 

I *- 1 df [xBnf 2,0,14], ATfLRJBaso , 5j; * address 

xBuf3 <- T, AT I’ LRJBaso, 6]; 

lu «- (xBuf3) XNOR (170000c), atfLRJBase, 7]; ‘look for rn-i address = 7777 
T «■ xBuf2, gotof RaniLonded , a l u = 0] , ATfi.RJBase, .1.0]; 

LU <- xBuf , ATf LRJBase, 13 |; 

APC&APCTASK <- xBuf3, ATfLRJBaso, 11]; 

WRITECS0&2, AT[LRJBaso, 14j; 

LU ♦- xBufl, ATf LRJBase, 15 |; 

APC&APCTASK <• xBufO, ATfLRJBaso, 16]; 

WIUTECS1, ATfLRJBaso, 17]; 

T «■ xfTomp, gotofLRJloop], AT[LRJBase, 20]; 


LRJIncCount: 

T «• xfTemp <- (xfTemp) + 1, goto[JlimpRet], ATfi.RJBase, 21]; 


RamLoadcd: 

RTEMP1, GOTOf.+2,Rodd], ATfLRJBaso, 12]; * odd if no jump 

APCTASK&APC «- (xBufl), ca I I [JumpRet ], ATfi.RJBase, 22];* set TPC for return 
T <- (GetRSpecf .103]) xor (377c), ATfLRJBaso, 23]; 

RTCMP *- FFaultAdd, ATfLRJBaso, 24]; 

Stkp <- R TEMP, RTF.MP T, ATfLRJBaso, 25]; 

Stack <- (Stack) or (lc), ATfLRJBaso, 26 j; 

* loadpagef4], ATfLRJBaso, 27j; 

* Stkp <- RIEMP, gotopf P4Ta i 1 ] , ATfi.RJBase, 30]; 

nop, ATfLRJBaso, 27j ;*********w i I I bo over-written later 

nop, gotof.], ATfLRJBase, 30 ];*********wi 11 be over-writton later 


Jump Rot: 

RETURN, ATfLRJBaso, 31]; 

******** * ****** following are for linkage, will be over-written later 

OnPago[opPage3]; 

Kfcr: gotof.], atfKFCRLoc]; 

P7Ta11: gotof.], atfP7Tai1Loc]; 

OnPagof xfPagel]; 

Loadgc: gotof.], atfLoadgcloc]; 

OnPagefnePage]; 

neNoskip: gotof.], atfneNosk ipLoc]; 


END; 
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* File RDC.me 

* Last edit by Jim Framlocn October 14, 1979 9:12 PM 

* This version preloads 16 words For write operations. 

Insert!'RdcDefs]; 

TITLE[RigidUiskControll or]; 

SET TASK[ RdcTask]; ‘currently lib -- 9d 

ON PAGE[RdcPago]; 

RdSectorWakeup: 

ZComo hero every time we get a sector wakeup. We get a sector wakeup at tho ond oF ovci'y data sector. 1389 sectors go by every second, s 
*"o we get a wakeup every 723 microseconds. When we wake tip, look and see what wo were doing when wo wont to sleep so wo can pick up wher 
**e we loft ofF. Wo were doing one of the following: 

Waiting for a new command (State Idle); 

Waiting for a drive to come ready (State DriveChange); 

Waiting For a seek to complete (State SeekWait); 

Waiting For a sector to come around on the disk to execute a command (State SectorWait); 

Waiting for a transfer operation to complete so wo can check for errors. (State DataTransfor).% 

•DiskStatus has just been read from the Controller, First, update CurrentSoctor so we know what sector is about to go by. Then go do som 
"•othing depending on what State wo are in. 

LU<-( RdcDiskStatus) AND ( RdcSectorO); "Test for sector 0. 

RdcCu rrontSec l;or<-( RdcCu rren tSecto r) + l, ‘Update current disk sector. 

Skip[ALU-0]; "Skip if not sector 0. 

RdcCu rren tSoc to r*0C ; 

D i spatclif RdcStale , 15,3]; "Get State for dispatch 

T*RdcCSBptr, ‘Load displacement to Fetch IOCDptr from CSB. 

Disp[. |- l'J; ‘Dispatch on state pointer 

RdcSoctorT imeOu tCount *- (RdcSoc to rTimeOutCoun t) - 1, 

GoTo| HdSec to rWait] , AT[ IldcUaso, RdcSoc to rWa it! |; 

I.U*-( RdcDi skSlia tns ) AND (RdcScekComp 1 etc) , "Check seek complete 

GoTof RdSeckWai t ] , AT[RdcBase, RdcSeckWait!]; 

L.U*-( RdcDi skS tatus ) AND (Ro'cDovSe I OK) , "Check device selected 
Go To | IldDri veChange 1 j , AT[ RdcBasc, RdcDriveChange!]; 

T*-LSII[Rdr.Stato, 14], "Prepare State for FndCoinmand. 

Go Fo[ Rdf.ndTrails For |, AT[RdcBasc, RdcDataTransfer! |; 


Rdldle: 

"Come here when we are in the Idle state. We are just hanging around waiting for ThnFace to chain a new TOCD onto the CSB. FhoFaco is on 
*"r link to ThoOutsidoWorld. When ThcOutsideWor1d wants to execute a disk command, ho calls ThoFacc. TheFace tlien constructs an Input Out 
’"put Control Block (I0CB) and chains it onto the Controller Status Block (CSB). When we wake up, we took to see if there is anything to 
* * do. 

"When we arrive here, T points to the CSB. Load IOCBptr and Synch from the First two words of the CSB, Look to soe if Synch is negative. 
**If so, ThoOutsidoWorld wants us to quit processing IOCBs. 

Pfetcli2[RdcZeroBase, RdcIOCBptr], "fetch lOCBpLr and Synch from CSB. 

ATfHdcBase, Rdcldle!]; 

LU'RdcSynch, "Test Synch 
Goro[RdId'lel,R> = 0]; 

"Violi , it's time for a break. TheFace says to knock it off for a while and not process any more IOCBs until he gets things Figured out. 
**We could got out of here quicker if we didn’t have to check Synch. But we must check it every time, oven if there is nothing to do. The 
""lace will not be satisfied unless we say "I Got it” by setting bit 0 of the controller word in the CSB. 

F< (IldcCSBpt.r) +(RdcCSBcon t rol 1 er); "Set displacement to store Synch. 

Ps to re 1[ Rdc7.e roBaso , RdcSynch]; "Store <0 in csb . controller. 

GoTo[RdC1earWakeupj; 


Rdldlel: 

"Como here if Synch is not negative. We might have work do. Tost IOCBptr to sec if it is non-zero. 

F< Rdc.lOCBptr; *T points to IOCB. 

Rdldlo2: 

"Come here from Chain when a command has boeri processed, and see if there is another IOCB waiting. 

RdcStale*Rdcldle, 

GoTo[ lid Now IOCB, ALU//0 |; "IF IOCB is waiting 
NOP; "Placement constraint 

"Well, shoot, there is nothing For us to do this time. Oh well! Look at the Synch word and see if any Mesa processes need to be notified 
""about this sector wakeup. If not, skip the call to Dolnt to save time. Wc need to split as fast as possible and give the machine to som 
••cone else. 

RdEndSecto rWakoup: 

"Synch could be used to schedule Mesa processes that want to know about this sector wakeup. Since Pilot is not currently using this Feat 
**ure, this has been is disabled to save space. The following comments could be removed to enable the feature for Pilot. If DOl.aug would 
** allow more than one ComChar, wo could make this a conditional assembly!! 

% *********start of Pilot Sector Wakeup Code********************* 

T*-(RdcC SB ptr) + (RdcCSB synch) ; 

Pfetchl[RdcZoroBase,RdcSectorSynch]; "Fetch Synch word from CSB. 

LU*-RdcSectorSynch; 

GoTo[RdClearWakeup,ALU=0]; "If Synch is zero. 

T*-(RdcSectorSynch) OR ( RdcAI lowTask), 

Call[RdfaskifNotZero]; 


LoadPage[0]; 

CallP[DoInt], "Set NWW and IntPendlng; uses registers 0,1. 

IOStrobe; "Terminate the wakeup 

"Continue here after the next sector wakeup. 

Input[RdcDiskStatus,RdcStatus], "Road status register from controller. 
Go To[ RdSec to rWakoup] ; 

%*******|**F.nd of Pilot Sector Wakeup Code""*******’****"**"***** 

*!""""""""Start of MicrocodeDriver Code"""***"'**"************"** 

T<-( RdcCSBptr) + ( RdcCSBsynch) ; 

Pfetcl\l[RdcZeroBase, RdqSectorSynch]; "Fetch Synch word from CSB. 
RdcTemp*-RdcWakoupReg ; "Load address of NWW. 

T<-(GetRspec[ 103]) XOR (377C); "Save Stkp, right side up. 

StkprRdcTemp, 

RdcTompt-T; "Set Stkp to NWW, save old Stkp in Temp 

T*-RdcSectorSynch; "Get bits to OR into NWW. 

Stack*-(^tack ) OR (T); "Set NWW. 

Stkp*-(RdcTemp), "Set DriveChange to zero 
Call[RdTas klfNotZe ro]; 
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»l ***»***j, En( j of MicrocodeOrivcr Cotle**’******"'***********- , '* s '*** 

RdCloarWakeup: 

•Terminate the wakeup and go to sloop until tho next sector wakoup. 

Cal 1[RdStrobo]; 

♦Continue hero at the next sector- wakeup. 

Input|RdcDiskStatus,RdcStatus], *Read status register from controller. 

GoTo[RdSectorWakoup]; 

RdNowIOCB: 

*Ho,y, Wow!! We have something to do! Time's a wast'n! When tho Control lor turns on our wakeup latch, we are only 56 hyt.es from the secto 
**r mark. We only have GO microseconds after sector wakeup to got ready and send a command to the Controller. Mo telling how much time ha 
**s already gone by. We didn't get our wakeup call until we wore the highest priority task. And the evil OiskController runs at a higher 
"•"priority task level. We have already executed 9 instructions since wakoup. If tho header shews up before we send the command, we will g 
**et XOAtton and Sorvicel.ato. And you know what that moans! Wo will have to wait one more disk revolution. And TheOutsideWorld will not b 
**o pleased! 

*A rule of the game is that we have to task to give up control of tho CPU after every dozen or so microinstructions. Wo must task twice 
""before we can get our command ready, and once more before wc send the header data to the Controller. And we don't know when wc will get 
** scheduled again after a task. The evil Displa.yControl1 or is a glutton for CPU cylcos. If wo don't task often enough, the display will 

""flicker. And the OutsideWorld will really bo pissed! At tho same time, the sector mark is loss than 60 microseconds away. So we better 

""hurry! Try to avoid branches that cause burps, and beat it down to State DataTransfer. 

"T and lOCBptr point to the new IOCB. Fetch ttie now disk address from the first two words of tho IOCB into NewDrivcCyl inder and NcwlloadSe 

**ctor. The next two instructions calculate a pointer to CSB.diskAddress[of the drive we are about to access]. 

Pf ctch2[RdcZeroBase, Rdc.NewD riveCy 1 i oder]; 

T<(RdcCSBptr)+(RdcCSBdiskAddrcss), *T points to CSB.diskAddross[drivc 0], 

Ca l l [ RdTasklf No t/ero]; 

T<- (I DF[RdcNcwDr iveCy 1 in tie r, 0,2]) +T; *T points to CSI1. d i skAddress[cu rrent drive]. 

"There was our first task switch after 12 instructions. Here wo go again. 

I.U<( RdcD i s kAdd rossP t r) XOR T; "Test for drive change since last command. 

RdcDi skAdd rcssP t r‘-T, "Update pointer to CSB . di skAdd ressfdri ve] . 

Sk »p [ AI.U = 0 J ; "If no drive change. 

RdcState*RdcDrivoChango; "New drive this wakeup. 

"letch the current cylinder address of tho drive we are about to reference from the CSB. This will he set to -1 if we must recalibrate. 

Pf etch l[RdcZeroBasc , RdcCu rren ICyl inder] ; 

"Send the drive and head to the controller. Drive is in the two low order bits of DiskAddressPtr. DiskAddressPtr points to CSB.diskAddres 
**s[drive]. Head is in NowiieadSector. 

T< (I.Dr[RdcNewlloadSec to r, 0 , 10 J) ; "Head is in bits 14-17 

T<-( L ol I jHdcDi skAdd res sP t r, 4 J) OR T; "Drive is in bits 12 13 

lldc I omp< T ; 

OutpuL[RdcTemp, RdcDrive/Head]; "Send drive and head to controller. 

"See if the drive has changed since the last command. The State will bo Idle (an even state) or DriveChange (an odd state). 

LU<-( RdcState). 

"This is our first obstacle. If the drive has changed since the last command, wo will have to wait for the Controller to tell us the now 
*"drive is ready. 

Go ro[ ItdDr i vc-Cliango, R Odd]; "If drive change 

IldDr i voReady: 

"The drive has not changed. See if we need to recalibrate. 

LU<-( RdcCu rrentCyl inder) , 

Skip[R>=0]; "If recal not required. 

"Well, this is obstacle number two. The drive must be recalibrated before we can.execute any commands. This means we must move the disk 
""arm back to track 0. Sock errors cause this to happen. Go To Recal and continue at TcstForSeek when the drive has been recalibrated. If 
; "*no seek is required after recalibration, continue at SeekComplete after the beads have settled. 

LU<-( RdcDi skStatus ) AND (RdcTrackO), 

GoTo[ Rdllecal ]; 

"The drive is ready, and we we do not need to recalibrate. Sec if wo need to seek. Vie will not need to seek if the disk address is for o 
*"ne of tho fixed heads or if CurrentCylinder is equal to NowCylinder. Tost for the same cylinder first to save time. 

T'-ltdcNewCy 1 i nde r<-( I.DF'f RdcNewDri veCy 1 inder, 10,10] ) ; "Remove head address from NewlleadCyl inder. 

RdTes tFo rSeok: 

LU*-( RdcCurrentCyl inder)-T ; "Test for different cylinder. 

T<-(RdcIOCBpt r) + (RdcIOCBnext) , "Prepare to fetch. 

GoTo[RdSoekComplete, AI.U=0]; *Tf CurrentCyl inder = NewCyl inder 

"Here we are stuck at the last obstacle. It looks like we will have to seek before we can execute a command. Go move the disk arm to the 

""new cylinder and continue at SeekCompleto when the heads have settled at tho new cylinder. 

IU<(LDF[RdcNewHeadSector,4,1]), "Test for fixed heads. 

GoTo[RdSeek]; 

RdSeekComple te: 

"We made it past the last obstacle. The disk arm is sitting at the right cylinder. Get the command ready to send to the Controller. 

"Fetch the rest of the data we need from the next four words of tho IOCB: NextlOCB points to the next IOCB in the chain, if any (Note: we 
** must load this again at RdChain); Command is tpe command to execute; LongPointor and LongPointerl point to the data for the transfer o 
""porat Ion. Note that this operation destroys registers that were being used for other things during the seek. If the command is seek onl 
**y, ,we are through with this IOCB. 

Pf et.cli4[RdcZeroBase, RdcNoxtIOCB] ; *T-( RdcIOCBpt r)+ (RdcIOCBnext). 

RdcCominand<-( RdcCommand) AND NOT ( RdcSeekB its ), 

Ca11[RdTasklfNotZeroJ; 

Output[RdcZeroBase, RdcMomBuffAdr]; "Set MemBufAdr to zero. 

"Continue after our second task switch after 14 instructions. This was the first reasonable place to task. 

I_U*-LDF[ RdcCommand , 10,10] ; "Header, label, and data commands 

RdcCommand<-( RdcCommand) OR ( RdcAllowWake), 

GoTo[RdEndCommand,ALU=0]; "If seek only 

"Continue if command is not seek only. 

*~****.»***gtart 0 f pn 0 t Code*******"**"**""’*"*******""""****** 

“Got LongPointer ready to point to tho data area in memory. If BP[0:23] is a base pointer, BP[0:7] is In bits 0-7, and BP[0:7]+1 is in b 
**its 8-15. 

RdcLongPo i nterl*-T*-LSH[ RdcLongPointe rl,10]; 

RdcLongPointerl*-(RSH[Rdcl-ongPoi uteri, 10]) + 1; 
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RdcLongPoi nle rl<-( LDF[RdcLongPo i nte rl, 10, 10]) OR T; 

+*h * * * * * * ■* fj-j q f pilot Co (Jo *##*#******************** + *********'** 

LU<-( RdcCommand) AND (RdcDataWritoOrVerify); 

T<RdcI0CBptr, "Set displacement for Fetch. 

GoTo[ RdP repa reSec to rWa i t, ALIMO] ; "If not write or vorify. 

*000111100 if write or verify operation. Preload the Controller buffer with the header and labol data and 16D words of data. 
I0Fetch20[Rdc7.oroBase, RdcOutput], ‘Send the header data. 

Call[RdTasklfHotZero]; 

T*0C; *Set displacement for IOFetch. , 

IOFotch20[RdcLongPointer,RdcOutput]; ‘Transfer 20 data words to tho Controller buffer. 

RdPrepa re Sec to rWait: 

RdcSectorTimeOutCoun t<-RdcSecto rTimuOutWakoUps ; 

RdSecto rWa it: 

*llorc we are ready to send a command to the Controller, took to seo if tho sector coming up is tho one we v/ant to access. CurrontSector 
**is what we think t.ho next sector will be. 

T*-LOF[RdcNewlloadSector, 10,10] , *T - sector specified by command.* 

GoTo[ RdSecto rT imcOut, ALIJ-Oj; "If sector time out 
LU<-( RdcCu rren tSec to r) XOR T; 

HdcState‘-RdcDataT rails fer, 

CoTo[RdDataTransfer,ALU=0]; "Go for it!! 

"Can you believe it? We hurried all the way down here, and this isn’t even tho sector we need to access. Go back to sleep until the next 
••sector wakoup. Then continue at SectorWait above, and chock that sector. 

RdcStateMtdcSecto rWa i t, 

GoTo[RdEiu!SectorWakeup]; "Go back to s leep. 

RdllatnT ransfer: 

•Hero we are at the right sector. Send the command to the Controller. 

Output[RdcCommand, RdcDovOp]; "Send the Command. 

"Mope we made it on time! We won’t know until we try to road the header. If we get IOAtten here because we missed the sector, we will sti 
••11 get the header wakoup, so we plunge ahead. Tune In at Readlloader Tor the next exciting episode! 

LU*-( RdcCommand) AMD (RdcDataWritoOrVerify); 

TeRdcIOCBptr, *Set displacement for Fetch. 

GoTo[RdReadHcader,ALU//0]; *If write or verify. 

•Continue if not write or verify. Vie have not yet loaded the header and label data into tho Controller buffer. 

0utput[Rdc7.eroflase, RdcMemBuffAdr |; "Sot MemllufAdr to zero. 

NOP; "Two instructions after Output before memory instruction. 

Lll<-( RdcCommand) AND (RdcVlr i telioado r) ; "Test for writing headers 
IOFe tch20[ RdcZeroilase, RdcOutput], "Send the header data. 

Skip[ALU=0]; "If not writing headers. 

"If we are writing headers, wo are done until the next sector wakeup. At that time, we will chock to see if we got any errors, terminate 
""this wakeup and go Lo sleep. 

GoTo[RdEndSec to 1 Wakeup]; 

GoTo[RdReadlleader |; "This extra instruction is for placement constraint. 

RdlloadHeade r: 

"We have done all wo can for now. Terminate this wakoup and go to sleep until the header field on the disk shows up. Tho header Meld con 
**tains the address of the next sector. 

Call[RdStrobe]; "Terminate the wakeup. 

"Continue here when the Controller has read the header field from the disk into its buffer. Transfer the header information from the Cont 
••roller’s buffer into the TOCB. This is the exciting moment, ladies and gentlemen! We will soon know it wo got our command ready in tim 

* * e. 

T«-0C , "Set MemBuffAdr to zero. 

Call [ RdPriineldata] ; "Start tile Controller. 

T<-RdclOCBptr; "Set. base for IOStoro 
Rdcfemp*-RdcTemp ; "Interlock for Primeldata 

IOSto rc4[ Rdc/.c roBase, Rdclnput], "Read tho header data into the first four words of the IOCB . 

"Well, we blew it! We got IOAtten from the Controller, and that means trouble! Our command was probably too late. Sigh! 

Co To | Rdlloado rIOAt ten , IOAtten] ; 

"Well, wo made it past the header. We win part one. But the game is not over. The bits are flying fast and furiously now. The SA'1000 trail 
""sfors seven million bits per second. Will wo catch them all as tlie disk fly by? Or will tho evil DisplayController steal our CPU cycles 
** and cause ServiccLate or RateError? Tuns in at tndTransfer for the exciting conclusion!! 

LU*-( RdcCommand) AND (RdcLabelReadOrVerify); "For tost at EndLabel 

L(J<-( RdcCommand) AND ( RdcDataWri teOrVeri fy), 

GoTo[ RfJF.ndLabel ,ALU=0|; *If no label read or verify 

"Come hero to read or verify label. Issue lOStrobo to cancel tho Header field wakeup and go to sleep. 

Cal 1[RdStrobe]; "Terminate the wakeup. 

"Continue at the first label field wakoup. Read the first four label words into IOCB words A through 7. Issue IOStrobe to terminate the 
** wakeup and go to sleep. 

T<-6C, "Set MemBuffAdr to 6. 

Call[RdPrimoldata]; "Start the Controller 

T*-(lldcIOCBptr) + (RdcIOCBlabel); "Set base for IOStoro. 

RdcTempi-RdcTemp; "Interlock for Primeldata 

IOStore4[RdcZeroBase,RdclnputJ, "Read the first four label words into IOCB locations 4 through 7. 

Call[RdStrobe]; "Terminate the wakeup. 

"Continue after the second label field wakeup. Read the second four label words into IOCB locations 10B through t3B. 

T"-(RdcI0CBptr) + (RdcI0CBlabel+4); 

IOStore4[RdcZeroBase,Rdclnput], "Read the next four words of the label into IOCB locations 10-13B. 

Skip[NoAtten]; "If not IOAtten 

"Come here if we have IOAtten due to a label error. Set bit 0 in State to remember we got a label error so we can post LabelError in the 
""status. We will continue to get data wakeups, so we pluugo ahead. 

RdcState<-( RdcState) OR (RdcBitO); 

LU<-( RdcCommand) AND (RdcDataWritoOrVerify); 

RdEndLabel; 

•If write or verify data, G 0 T 0 WrltoData. If data read, G 0 T 0 ReadData; otherwise skip data entirely. 

LU*-( RdcCommand) AMD (RdcReadDat a), "Test for data read. 

GoTo|‘RdWriteOata, ALU//0] ; "If data writo or verify. 
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GoTo[RdReadData,Al.UffO] ; "If read data 

GoTo[ RdC'l earWakeup]; ’Skip data altogether. 

RdWriteData: 

•Como here to write or verify data. Issue TOStrobo to cancel the wakeup and go to sleep. 

RdcTempMOC, *to set MomOuffAdr 

Cal 1[RdStrobe]; ‘Terminate the wakeup, 

•Continue after the first, data field wakeup. Set McnBufAdr to the address following tho last address loaded with data in the sector wake 
••(20 header and label t 20 data = 40). 

Outputf IldcTomp , RdcMomRuf fAdr]; 

•Wo must have two instructions after Output before a memory instruction. 

RdcTemp* T«-20C; ‘Set displacement for lOFetch and Interlock. 


RdWritcData2: 

•Repeat the following loop 17B (15D) times: Transfer 20 (160) words to the Controller buffer. Issue IOStrobe to terminate the wakeup. Go 
••to sleep. Continue at the next data wakeup. Use SectorTimoCount us a temp to set to 370 so wa can subtract T from 370 to tost for the I 
**nst transfer. This also makes another instruction after the Output and makes an oven location to branch to on AI.U>=0. 

RdcLoop fost<-3/0C; 


•Wo execute I0Fotch4 four times instead of one IOFetch20. Again due to tho famous Rodoll Syndrome. 
I0Fetcli4[Rdcl.ongPointer,RdcOutput], ’"Transfer 4 more data words to the Controller buffer. 

Ca II [ Hd Tp TusANoTask]; ‘Increment T and Temp by 4. 

IOFetcli4[Rdcl.ongPointer,RdcOutput], *Transfer 4 more data words to the Controller buffer. 

CallfRdTplus4]; •Increment T and Temp by 4 and task. 

TOFetclvl[RdcLongPointer,RdcOutput], *Transfor 4 more data words to the Controller buffer. 

Call[RdTplusANoTask]; •Increment r and Temp by 4. 

I0Fetcli4[ RdclongPointer,RdcOutput], *Transfer 4 more data words to the Controller buffer. 

Cal I[RdStrobe]; ‘Terminate the wakeup. 

•Continue here after the next data wakeup. f and Temp will be 3/4 the last time through the loop. 
LU<-( RdcLoopTost)-T; "Test for last transfer 

RdoTemp<-T<-( RdcTemp) + (4C ), * Increment d isplaceinent. 

CoTo[RdWriteData2,ALU>=0]; *If not last data transfer 


•Continue hero on the lGlh wakeup. Ignore by issuing IOStrobe and go to sloop, flic next wakeup is equivalent to sector wakeup. 
GoTo[RdClearWakeup|; 

RdReadData: 

•Come here for data field read operation. Issue IOStrobe to terminate the header field or label field wakeup and go to sleep. 
Cal 1[RdStrobe]; ‘Terminate the wakeup. 

•Continue here on the first data field wakeup. Set McmBufAdr to 2US. Do PrimelData to start the controller. 

T<-2LC, »Set McmBuffAdr to 21 

Call[RdPrimeldnta]; 

RdcTeinp<-T< 0C; • T is displacement for IOStore and Interlock. 


RdReadData2: 

•Repoat the following loop 16D times: Road 16D words into the data buffer. Issue IOStrobe to terminate the wakeup and go to sleep. 
IOStore4| RdclongPointer,RdcTnput], ’"Transfer 4 bytes from Controller buffer to memory. 

Call[RdTplusANoTask]; "Increment T and Temp by 4. 
lOSLore4| RdclongPoinler,RdcTnput] , ‘Transfer 4 bytes from Controller buffer to memory. 

Cal 1[Rdlplus4]; ‘Increment T and Temp by 4 and task. 

TOStore4[RdcLongPoin tor,RdcTnput], ‘Transfer 4 bytes from Controller buffer to memory. 

Cal 1[Rdfp1usANoTask]; ‘Increment T and Temp by 4. 

IOStore4[RdclongPo inter,Rdcleput], •Transfer last 4 bytes bytes from Controller buffer to memory. 

Ca11[RdStrobe]; •Terminate the wakeup. 

I.U*-( RdcTemp) XOR (374C); ’Test for all bytes transferred. 

RdcTemp'T< ( RdcTemp) + (4C), •Increment d isp 1 aceinen t. 

Go To[ RdReadData2 , AIU//0] ; *If not last transfer 


•Come here after the 17th wakeup. When tho last block has been transferred, go read status and do end of transfer processing. 
Input[RdcDiskStatus,RdcStatus], "Read status register from controller. 

GoTo[RdSectorWakeup]: 


RdEndT ransfer: 

•Well, here we are boys and girls, at the wakeup after the data transfer. And the winner is... 
"T = LSII[ IldcState, 14], 

RdcDi skStatus<( RdcDi skSta tus ) OR T, *DiskStatus was loaded at Wakeup. 

•Well, shit! We got all the way down here only to find we have an error. This could bo serious! 
Go To[RdDatalOAt ten,IOAtten]; 


•Wheww!!! We made it! Now go post the completion status in the IOCB so TlieFace will know what happened. Again the mighty RigidD1skControl 
**1er triumphs over the evil DisplayControHer!M ! I 

•This is a temporary patch to see if the last command was a write, and if so to verify it. 

% 

LU<-( RdcCormnand) AND (4C); ‘Test for write data 

RdcCommand<-( RdcCommaud) AND NOT ( 7C), ‘Turn off data field bits. 

GoTo[RdNotWrito,ALU=0]; ‘If not write command 
RdcCommand* (RdcCommaud) OR (1C); ‘Turn 011 verify data bit. 

RdcState'-RdcSec torWai t, 

GoTo[RdEndSectorWakeup]; 

RdNotWrite: 

% 

T<-(RdcI0CBptr) + (RdcI0CBcompletion), *Set displacement to post status. 

GoTo[RdEndCommand2]; 


RdEndCommand: 

•Come here when tho command has been completed. We are through with this IOCB. If the command was seek only, State is Seek; otherwise Sta 
**te is DataTransfer or one of tho error states. Post Status in IOCB.completion. (State is in bits [0..3]). Save the old lOCBptr in the C 
**SB. NextlOCB points to tho next IOCB in the chain, if any. If any type of error occurred, NextIOCB will be zero to stop processing IOCB 
“s. Fetch IOCB.synch into CommandSynch. The transfer mask may be used to cause a Mesa process interrupt at the end of the command. Note 
“that this is not the same as CSB.synch, which is still in Synch. 

T <- LSI I [ RdcState , 14]; ‘Status will have State in the high order 4 bits. 

RdcDi skStatus<-( RdcDi skStatus ) OR T; *DiskStatus was loaded at Wakeup. 

T<-(Rdr,I0CBptr) "(RdcIOCBcompletion); *Set displacement 

RdEndCommand2: 

Pstorel[RdcZeroBase, RdcDiskStatus], ‘Post status In IOCB 

Call[RdlasklfNotZero]; 
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T* ( Rdr.CSBptr) 1 { RdcCSBol olTOCB ); *Sct displacement 
Pstorul[RdcZero8ase, RdcIOCBptr ]; '"Save old lOCBptr In CSfi. 

r<-( RdcIOCBpt r) i(RclcIOCBsynch); *Sot displacement to fetch IOCB. synch. 

Pf otchlf lldcZe roBase , RdcComniandSynch ]; 

•Now we call Dolnt to schedule the Mesa processes that want to know about end of command. We don't test CommandSynch for zero since Pilot 
** always wants to know about end of command. 

•-♦•••♦•••Start of Pilot Code*************************'"********* 

T< RdcComrnandSynch, "Bits to Oil into NWW 

L oadPagofO "|; 

Cal IP[DoXnt]; *Sot NWW and IntPcnding; uses registers 0,1; lie TASK 

*~****•**•End of Pilot Code***••**•»**********•*#•****••*•♦***** 

•!••••♦♦••Start of MicrocodeOriver Code**•*•*•*••***•♦***•••**•• 

IldcTemp* ridcWakeupflog ; ‘Load address of NWW. 

T< (GotRspec[103 |) XOR (377C); *Savo Stkp, right side up. 

.Stkp<-RdcTomp, 

Rdcfemp<-T; *Set Stkp to NWW, save old Stkp in Temp 

TeRdcCommandSynch; "Get bits to OR into NWW. 

Stack'-(Stack) OR (T); ‘Set NWW. 

Stkp<-( RdcTemp); 

• i *******•F.nd of MicrocodeDriver Codo*************************** 


RdCliain: 

•Fetch the pointer to the next IOCB from the current IOCB. We must fetch this pointer at the end of the transfer in order to give the Dri 
•*vor a chance to prepare the next IOCB. Then hurry back to see if there is another IOCB in the guoue. Sometimes TheFace give us a whole 
••list of IOCBs all at onco. tf the next IOCB is for the next sector on the disk, we have to be ready before the next sector mark comes a 
••round. It's back to the races, folks! 

T<(RdcIOCBptr)+(RdcIOCBnoxt); *Sct base to fetch lOCBnoxt 

UJ<-( RdcSlate ) - ( RdcDatatrror) ; *Test for error 
Pf etch 1 [ Rdc/.eroBase, Rdc IOCBp t c] , *TOCBpt r*-IOCII 11 ex t 

Skip[ALU<0]; * If no error 

RdcIOCBpt r<-zero; "Zero lOCBplr to stop processing IOCBs. 

l‘-RdcCSBptr; 

Ps to relfRdcZcroBase , RdcTOCBp t r'|; *Storo pointer to next IOCB in CSB. 

T< Rdc IOCBp t r, 

GoTo[Rdldlo2]; *Go process next IOCB. 
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RdDriveChange: 

♦Come hero if the new command references a different disk drive than the previous command. We have to wait until the Controller has a no 
**w drive ready. When the drive is ready, go back and continue where we left off. 

RdcSectorT imoOutCoun t'RdcDr i voChangeTimeWakeUps, 

GoTo[RdEndSectorWakcup ]; *Go back to sleep. 

RdDriveChangel: 

♦Continue here at the next sector wakeup v.'hon State is Dr iveChange. LU - (RdcDi skStatus) AND (RdcDovSe IOK). Soe if device is ready. 
RdcSect.orT imeOutCoutvt <- ( RdcSectorTimeOutCoun t )-l, 

■Sk ip[ALU=0‘|; *tf drive is not yet ready. 

GoTo[RdDrivoReady]; *DevSeI0K=1 

♦Como here if t. lie disk is not yet operational (DevSe'IOK-O). Check for timeout. 

Sk ip[Al.U-0]; *If not timeout 

♦Come here if the device is not yot operational and timeout has not occurred. 

GoTo[RdEndSectorWakeup]; 

♦Como here if disk has timed out. Wo can't hang around forever waiting for the disk. TheFace will wonder what happened to us. 

RdcS ta te' RdcD i skT imoOut, GoTo[RdtndCommarid j; 


RdReca1 : 

♦Como here if CurrentCylinder is -1 to indicate that we must recalibrate the disk. Send negative seek commands to the Controller until Tr 
"*ackO appears in the Status word. Wait for each seek to complete before sending another Command; otherwise we might get carried away and 
** send too many seek commands. This causes the disk arm to bang against the stop, and it makes an awful noise. 

♦Status AND TrackO is on LU. Strip the head address from NewlloadCy Under. If.we go back to ToslForScek, we will need NewCylinder in T. 
T<-RdcNewCy I hide r<-( LDF[ RdcNewDr i vcCy 1 indc r, 10 , 10] ) , 

Sk ip[AL.U//0] ; *If we are at track 0. 

♦Wo are not at track 0 yot. Send a negative seek command and wait for the seek to complete. Return to (local above when it has completed. 

T<-1C, ‘Seek one cyHinder. 

GoTof RdSeekNeg]; 

♦Wo are at track 0. We still have to seek to NewCylindor from track 0. 

RdcCu rren tCyl i nder<-0C, 

Go Fo[ RdTes tForSeok , AI.U//0 |; *l f HcwCy 1 inder/70 

♦NewCylinder is 0. We will not need to seek, hut we must wait for the heads to settle after recalibrating. 

RdcHcadSot, tl eCoun trRdcIleadSett 1 iiigTimeWakeUps, 

Go To[ RdlleadSett 1 e] ; 


RdSeek: 

♦Come hero if CurrentCylinder is not the same as NewCylinder. We need to seek, unless tho address is for one of the fixed heads, iload add 
**ross is in hits [0..7] of NcwllcadSector. Bits[0..3J are not used. Bit 4 will bo nonzero if fixed heads. 

T«-RdcNowCy I indor, *LU - ( LDF[RdcNcwlleadSec tor, 4,1]). 

Skip[ALU-0 ]; *If moving heads. 

♦Fail through hero if fixed heads. Come here when the heads have settled after a sock. 

RdSeck2: 

T<-( RdcIOCllp t r) r (RdcIOCBnox t) , “Prepare to fetch. 

GoTo[RdSeekComp1 ete ); 

♦Continue if the disk address is for tho moving heads. We really do need to seek. Well, there is no need to hurry any more. We have a 
** long wait. Send seek commands to the Controller one at a time. Each command moves the arm one cylinder in the negative or positive dir 
**ect ion. 

T<~(RdcCurrentCyl inder) - T; *T = Curren tCy i hider-NewCyl inder 

GoTo[RdSeekNeg,ALU>=0]; *If CurrentCylinder > NewCylinder. 

♦Continue if seek direction is positive. 

RdcCominandHldeSeek+D, *Set for positive direction seek. 

GoTo[ IldSeekLoop]; 

RdSeekNeg; 

ndcCommand<-RdcSeek-D; *Set seek command for negative seek. 

T<-(zero)-T; *Seek counts up instead of down. 

RdSeokLoop: 

♦Send seek commands to Controller. T = number of tracks to seek in negative form. This crazy machine can add one to T, hut it can't subt 
♦♦ract one from T. So we count up instead of down. 

Output[RdcCommand,RdcDevOp]; "Solid seek command, direction, and allow wake to Controller. 

♦Now we need to delay at least one microsecond before issuing another Output command. If we send the commands too fast, the Controller ge 
**ts confused. We delay by tasking. Initialize TimeOutCount. Wo better find our cylinder before it times out. Set up HeadSettlingCount. W 
**e will start to count down when tho seek is complete. 

RdcStato<-RdcSeekWa i t, 

Cal I [ RdTaskI f NotZe re]; 

RdcUeadSc tt'l cCount*-RdcileadSe 111 ingTimoWakeUps , 

Call[RdTaskIfNotZeroj; 

T<-(zero)+T+l; *Decrcment // tracks to seek. 

RdcSec torT imoOutCoun t<-RdcScekT imeOti tWakeUps , 

GoTo[RdSeokLoop,ALU//0]; *If wo need to send another seek command. 

♦Turn off the seek bit in the command, but leave AllowWake and Direction hits on. otherwise the Controller gets confused. 

RdcCommand<-( RdcCommand) AND ( RdcAll owWakoAndSeekDi red ion); 

0utput[RdcCommand, RdcDevOp], "Send command to Controller. 

GoTo[RdEndSectorWakeup]; *Go back to sleep until the next sector wakeup. 

RdSeekWait: 

♦Now we must wait for the seek to complete. Go to sleep and continue hero at each sector wakeup. Check the Status word at each wakeup un 
**til SeekComp1ete appears. 

RdcSec torT imeOu tCount <- ( RdcSecto rTimeOutCoun t)-1, 

Go To[ RdSeekWai 12, ALU//0]; 

♦Continue if seek has not yet completed. See if seek has timed out. 

GoTo[RdSoekTimeOut,ALU=0]; *If seek timed out. 

♦Continue if seek did not time out and seek is not complete. 

GoTo[RdEndSectorWakeup]; 

RdSeekWaitZ: 

♦Seek has completed. See if this was a one step seek for recalibrating. 

LU<-RdcCu rrentCyl inder, 

GoTo[ RdllendSettle , R> = 0] ; *If not recalibrating 
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‘The seek has completed, and we are recalibrating. Go see if we ara at track 0 yet. 
l!J<~( RdcDiskStatus ) AND (RdcTrackO), 

Go To j~ Rdllocal '|; 

RdHeadSottle: 

"Como here when the seek has completed. Mow wo must wait for the heads to settle at tho new cylinder. All that seeking was a shock to the 
**ir little sensors. Go to sleep and count sector waketips until wo think the heads have settled down. 

T«-RdcD'iskAddressPtr; *Set base to point to csb.diskAddressfdrivoj. 

“Update CSB.diskAddressfdrivo]. Wo do not update CurrontCylinder. Do this first because it gives us a chance to task. 

Ps to rel[Rdc7.eroBase , RdcNewCyI in do r'J, 

Ca 11 [ Rd fas kl f No tZe ro_"|; 

RdcHeadSettl eCount<-( RdcIleadSettleCount) -1; 

Skip[ALU=0]; *If heads have settled. 

•If wo came here from Rccal, tho State has not yet boon set. 

RdcState*-RdcSookWait, 

Go To[RdEndSec to rWakeup ]; 

♦Tho seek has completed, and the heads have settled. 

Go fo[RdSeckZ]; 
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RdSt I’oba: 

"This subroutine terminates the wakeup and goes to sleep until the next sector wakeup. Mote: This does not work if IOStrobo and RETURN ar 
**0 on the same statement. We must delay before the RETURN. 
tOSt robe, 

GoTo[RdTaskj; 

RdTas klfNotZero: 

************Degin Code to l.ock Out Task Zero on Task Switch********* 

♦This task switch will switch to any task except task 0. l't is desirable to lock out task zero in the critical timing paths in order to r 
**cduce the chances of a rate error or service lato. To let in task zero, make the lines between asterisks comments and change Primeldata 
** to delay before the GoTo[RdTask]. 

I..U<-APCTask; 

UseCTask, 

Skip[ALU=0]; 

NOP; 

**""**** :, ‘"**End of Code to l.ock Out Task Zero on Task Switch******** 

RdTask: 

RETURN; 

RdTplusT: 

♦Add 4 to Temp and T. This Is used often by IOFotch'1 and I0Store4. The first instruction must allow for the bypass of T. Since the last i 

“nstruction was 0 memory instruction, T has not yet been updated. 

NOP; 

I <-RdcTornp<-( IIdcTemp) r( 4C), 

RETURN; 

lld fpl us4Mo fask; 

♦This is just like RdTplusT, but it does not allow a task switch. 

UseCtas k; 

T<-lidcTemp<-( RdcTemp) + (4C), 

RETURN; 

RdPrimoIdata: 

♦This subroutine sets MemDuffAdr to the value in T and primes the Controller by Output to Primeldata. The instruction following the Cal 1[ 

**HcJPrime 1.data] must do an interlock of Temp to insure that the Output has been completed. We do not do the interlock before the return s 

* * 0 as not to hold up the CPU unnecessarily. 

RdcTcmp«-T; *T contains the value to write to MemOuffAdr. 

Ou tput[ RdcTemp , RdcMoinBuff Adr j; "Set MeinDuff Adr, 

Output[RdcTemp,RdcPrimeldataj, ‘Start the Controller. 

♦We must delay before tasking after an Output. Task IfNotZero has d delay. 

GoTo[RdTasklfNotZeroj; ‘Return 
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♦ERRORS COME THROUGH HERE. 

Rdlleade rIOAt ten: 

♦Come here if we got IOAtten in state OataTransfer just after reading the Header. If the error was due to ServiccLate, we will retry if t 
“lie retry error counter has not yet gone negative; otherwise we report the error. 

RdcState<-RdclleaderError; *Set error code 

RdTostError: 

♦State is HeadorError, DataError, or LabelError. 

Input[RdcDiskStatus,RdcStatus], *Cet Status from Controller. 

Call[RdTaskj; 

On tput[ RdcTemp , IldcF. rro r Re set j; 

LU<( RdcD i skStatus ) AfJO (RdcF.rrorB itsLow); 
l.U‘-( RdcDi skStatus) AND (RdcServicoLato), 

GoTo[RdReportError, ALU//0J ; *If DufErr, RdF.rr, WritoFault, or Ofault 

♦Continue if not DufErr, RdErr, WriteFault, or Ofault. Test for ServiceLate. 

LU‘-( RdcDi skStatus) AMO (RdcRateE rro r), 

GoTo[RdServicel.atc , AIU//0] ; *If ServiceLate 

♦Continue if not ServiceLate. Test for RatoError. 

T*-(RdcIOCBptr) + (RdcIOCBsyndrome)H, ♦Set up to fetch RateError retry count. 

GoTo|'RdTestRetry,ALU//OJ; *If RateError. 

Rdfo rceRecal: 

♦Continue hei'e if no error bits are set in the Status word and we got IOAtten in the header field. We should not ever get header errors. 
♦♦Either wo lost our place on the disk or there is garbage in the header. Force a recal the next time we try a command. 

♦Come here from SeekTimeOut or SectorTimeOut. 

T‘-RdcDi skAdd rossPt r; 

RdcTemp<(zoro)-l; ‘Store zero in disk address 

Psto rel[RdcZe roBase,RdcTempj, 

GoTo[RdEndCommand]; 

RdSe rviceLato; 

*!****♦•*'“Start of MicrocodoDrivor Code****•*••••******«*•*•**«* 

RdcSocto rT imeOutCoun t<-RdcSec to rT imeOutWakeUps; 

RdcS t ate*-Rdc Sec to rWait, 

GoTo[RdEndSoctorWakoup]; ‘Retry all Serviccl.atos . 

♦!**** **♦“'End of MicrocodoDrivor Code ****** ******* *•****«■•* ** ««* 

T< (Rdc.TOCBptr) + (RdcTOCBsyndroinc), *Set up to fetch ServiceLate retry count. 

GoTo[RdTestRetry]; 

RdTes tRot ry: 

♦Como hero if ServiceLate or RateError. Fetch the retry count from the Syndromo. Retry count+1 times. This means if the count is zero, we 
** will retry once. Decrement this count, update it in the IOCR, and test for negative. If negative, wo give up; let Thei'ace figure out 
♦•what to do. If tho retry counter is not negative, we go back to Stalo SectorWait and retry when the sector comes around again. 

PfetchlfRdcZeroBaso,RdcTemp]; ‘Fetch retry count. 

RdcTemp<-( RdcTomp) -1, ‘Decrement retry count. 

GoTo[ Rdllet ry, R>-0 j ; 

‘Come here if retry count has been exceeded. 

RdErrorCountExceeded: ‘This is a breakpoint label. 

"Report error if error count has been exceeded. 

GoTo[ RdReportF. rror j; 

RdRetry: 

♦Retry the command the next time the sector comes around. 

Psto rcl[ RdcZc rollas e , RdcTemp j ; ‘Update retry count, 

IldcState* RdcSectorWait, 

GoIo[RdEndSecto rWakeupj; ‘Ret ry 

RdDatalOAtten; 

‘IOAtten in state RdcData, after the data transfer. If the error is due to a RateError, we will retry if the error count in tho IOCB is n 
“ot yet negative; otherwise we will report the error. If the State is negative, the error occurred in the label field; otherwise the err 
“or occured in the data field. 

LU*-RdcState, ‘Test for label error. 

Skip[R>--0]; ‘If not label error. 

RdcS t ate'-Rdc Label E rror, ‘Error occurrred in tire label field. 

GoTo[ RdTes tError] ; 

RdcState'-RdcDataError, ‘Error occurred in the data field. 

GoTo[RdTestErro r]; 

RdRepo rtE r ro r; 

T<-23C, *The Controller places the syndrome in words 23b and 24b. 

Cal 1 [RdPr iinoldata] ; ‘Start tho Controller. 

RdcTemp'RdcTemp; ‘Interlock for Primoldata 

Input[RdcSyndrome,RdclnputBuffer]; ‘Get syndrome from Controller. 

Inpu t[RdcSyndromel, RdcInputBuf'f er]; "'Get next word of syndrome. 

T«-(RdcIOCBptr) + (RdcIOCBsyndrome); *Set displacement to store syndrome. 

Pstore2[RdcZeroBasc,RdcSyndromo], *Store syndrome in IOCB 

Go To[RdEndCommand]; 

RdSeekTimcOut: 

‘From state Seek. A seek time out error has occurred. 

RdcState‘-RdcSeekT irneOu t, GoIcf RdFo rceRecal j; 

RdSecto rT imeOut: 

♦From state SectorWait. The sector has timed out. 

RdcState‘-RdcSecto rT imeOut ,GoTo[ RdForceReca I j ; 
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ON PAGEfRdcInl tPage]: 

‘This is tho RDC initialisation code. This is throw-away code that lives In a separate page from the RDC microcode. 


‘Redefine temporary registers for initialization 
RV[RdcRcgO, ADD[RdcRegBase,0]|; 

RV[RdcReq l, ADO[ RdcRcgOnso, 3 ] j; 

RVfRdcRegZ, ADD[ RdcRogBnsa. 2 ] J ; 

RV[RdcRog3 , A()D[RdcRogOaso, 3 j] ; 


RdcTn it: 

RdcReg0<-0C , AT[ RdcTn itLoc] ; 
iidcRogl^OC; 

RdcRegZ<-0C; 

RdcReg3«-0C; 

RdcZe ro8ase«-0C; 

RdcCSBptr*-AND@['RDCCSBValue, 377 ]C; *S,et Control ler Status Block address to 720. 

RdcCSBp tr< T‘-(RdcCSBptr) OR (ANO®[RDCCSBValuo, 177400]C); 

Pstore4[RdcZeroBaso, lUicReg0 ]; ‘Store zero into first four words of CSB. 

RdcRogO*-( zero) -1; 

Rdcl!egl<-( zero) -1; 

RdcReg2«-(zero)-l; 

RdcHeg3<-(zoro)~l; 

T<-( RdcCSBp t r) ••( RdcCSBd i skAddress) ; *T points to disk addresses in CSB. 

Pstore4[RdcZoro8ase,RdcRcgO]; *Sct all disks to recalibrate. 

RdcDiskAddrossPtr*-T; *Sot RdcDiskAddressPtr to point to CSB.diskAddress[dr1vc 0]. 

*Sot CurrentSector to a value higher than any sector. This will cause us to start counting at sector 0. 
RdcCu rren t Sec to r«-l 000C; 

Output[RdcRegO, RdcGoneralReset]; ‘Reset the Controller. 

On tpu t[ RdcZe roBase , RdcDri vo/llead]; ‘Set Controller disk and head to zero. 

RdcCommandHtdcA11owWake; 

Output[RdcCommand, RdcDevOp]; ‘Send Allow Wake to Controller. 

*1 ***«*«»‘Start of MicrocodeDriver Code********'**'*************** 

"Microcode driver version 
Call[RdcReturn]; 

*!*******»£nd of HicrocodcDriver Code*************************** 


LoadPage[RdcPago]; 

RdcState*Rdcldle, 

Co To[UdClearWakeup]; 

*!********Start of MicrocodoDrlver Codo*************** ********** 
RdcRe turn: 

RdcTcmp< lidcDiagTask. 1; 

RdcTemp*-( Rdc femp) OR (RdcDisk.2); 

APCTask&APC* RdcTemp; 

RETURN; 

*!***»****End of MicrocodoDriver Code** ********** ********■******* 
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X 

LOG 

The first major revision to this code was to change all IOFotchlGs to I0Feteli4s. The IOFotchlG was causing a word to he duplicated on tho 
** disk and pushing every other word in the page down one word, pushing tho last word on tho page off the end. (This is the famous llodell 
** Syndrome). The Controller must have a now word ready 1’or the disk every 2.2 microseconds. During the IOFetch, the Controller's buffer 
** is locked out, and a now word cannot ho transferred to the holding register. If enough branch burps cause tho IOFotchlG to exceed tho 2 
**.2 microsecond time limit, a new word cannot be loaded into tho holding register, and the previous word is duplicated. 

October 14, 1979 4:34 PM: The new RDC buy has the following symptoms: Four word blocks of data were not getting proloaded into the Contr 

•"oiler's buffer. On all write operations, 32 words of data wore being loaded into the Controller's buffer after tho Command had been sen 
**t to the Controller. Sometimes 8, 12, or 20 words of this pro toad data would not get loaded into tho buffer, and the data from tho prev 
**ious write operation would get written to tho disk page, Vhc Control lor did not report any error. 

Chuck Thacker suggested tho following solution to thn problem: Preload the buffer before sending tho command to tho Controller. I observe 
**d somo interesting "features" about tho Controller when I tried this: 

1. It is not a good idea to preload the buffer with header and label data if the command is not write or verify. If the command is a read 

*• operation, this causes ServiccLate to occur about 20 percent of the time, because of this, we only preload the buffer for write or ver 

•*ify operations. 

2. If wo preload the buffer with 32 words of data, we got spurious IOAtten from the Controller in the header field. Ho error bits are sot 

** in the Status word, and tho header data is correct (i.e-. , It is not a verification error). If we only preload 16 words, we do not got 

••tills spurious IOAtten. 

3. If tho command is verify label, read data, we must sot. MomBuffAdr to zero right after sending the command to the Controller: Otherwise 
•• we got. spurious IOAtten in the label field, i.e., no error bits arc set and there is no verify error. 

4. If wo preload the buffer for a write operation, wo must not set MomBuffAdr to zero after wo execute the command. This causes lOALten i 

**n the header field. In fact, this may be the cause for the whole problem wo were having. Once in a while, maybe MomBuffAdr was gottin 

**g set to zero before all of the data had been sent to the Controller. 

% 
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* File RDCDofs.mc 

* Last edit by Jim Fraudeen September 19, 1979 2:19 PM 

X 

This microcode is written to run under Pilot or under Super, the microcode driver written by Jim Katsiroumbas. The mode depends on two so 
**ts of statements as follows: 

To run under Pilot: 

Iiisert[DOLang]; 

NoMidasInit; LangVorsion; MultDib; 

InsortfGlobalDefs'l; 

Se t [ PiiotMode,1];' 

To run under Super: 

Insert[SUPERDEFS]; 

NoM idas In it; LangVorsion; 

So t[PiIotMode,0]; 


% 

* * # >U <fc + * # # * * * * * * # * :|» # ;fc * * 4 + * * + >l< * * * + # * * ‘f * + * # + + * >* # * ’P + * * * * * * * * m ^ # 

Insort[D0Lang|; 

NoMidasInit; LangVorsion; MultDib; 

[rise rtf G 1 obalDefs]; 

Sot[P i iotMode,1]; 


IF F.@[Pi IotMode, 1, ComCha r@[ ! j , ComCha r@[~] ] ; 


*! ****»««*start of H icrocodeDri ver Coda******'" ******* ****** 
Set[Rdcliritl’age,RDCRPAGE1 ]; "Throwaway init code for SA4000 
So t( Rdcln i tLoc, Add| Ishi f tfRdc in i tPaqe, 10] , 0 |]; 
MC[IUIcWakeupReg, 10]; 

* 1 ********e,|(J of MicrocodoDrivor Code********************** 


SET TASK[RdcTas k]; "currently lib = 9d 

SET[RdcBase, LSHIFT[RdcPago, 10]]; 

"The following are definitions for the registers that belong to the RDC microprogram task. 

SETf Rdr.Fi rst Reg i stor, LSIIITT[RdcTask, 4]] ; "The first register in tho block assigned to the RDC task (currently 220B). 

SI IfRdcRogBase,ANDR[60,RdcFirstRegister|]; "This makes all of the register addresses G bits long. 

"Register 0 is destroyed across sector wakeups. In the DataError routine, it is used to fetch the syndrome from the Controller. SectorSyn 
:l *ch is used to load CSB. synch at tho end of sector wakoup. 

RV[RdcSyndrome, ADD[RdcRogBase, 0]]; 

RV[RdcSectorSynch, ADD[RdcRogBase, 0]]; 

"Register 1 is destroyed across sector wakeups. Temp is used for a temporary register. In tho DataError routine, it is used to fetch the 
**syndrome from the Controller. 

UV| RdcTenip, ADD[RdcRegBase , 1 ]]; 

HV[RdcSyndromel, ADD[RdcRogBase, 1]]; 

*DiskAddressPtr points to CSB.diskAddress|current drive]. It is used to update CSB.diskAdd ress when the drive changes and also to soe if 
""tho drive has changed since the last command. 

RV[RdcDiskAddressPtr, ADD[RdcRogBase,2 |]; 

"CurrontSector contains the current sector number of the current drive selected. It is updated at each sector wakeup. 

RV[RdcCurrontSector, ADD| RdcRegBase, 3]]; 

"The next four registers must bo consecutive and quad word aligned: Mext.IOCB, Command, Longl’o in tor, and LongPo i n to rl. They are loaded tog 
♦"other from the IOCB when the state changes to DataTransfer. 

"NoxtIOCB points to tho next tOCB in the chain. It is not loaded from the I0CB until the DataTransfer state. 

RV[RdcNextIOCB, ADDfRdcRogBase, 4]]; 

"Command is the command loaded from the IOCB. It is not loaded until state DataTransfer. Until then, it is used to send seek commands. 

RV[RdcCoimnand, ADD[RdcRogBase, 6]]; 

•CurrontCylinder contains tho current cylinder number of tho current drive selected. It is used to determine whether wo need to seek, an 
**d if so in what direction. It is loaded from the CSB for each command, and it is stored in the CSB after each seek. CSB.diskAddress[dis 
**k index 0..3] contains the arm position of each drive. If -1, it means we must recalibrate, It is not used aftor tho seek. LongPointer 
""points to the data specified in the IOCB. It is not loaded from the IOCB until state DataTransfer. 

RV[RdcLongPointer, ADD[lldcRegBase, 6]]; 

RV[RdcCurrentCylinder, ADD[RdcRegBase, 6]]; 

"HeadSettleCount is used to count sectors until the beads settle after a seek. l.ongPointerl is the second word of LongPointer. It is not 
""loaded from the IOCB until state DataTransfer. 

RV[RdcHoadSettleCouut, ADD[RdcRegBase, 7]]; 

RVfRdcLongPointerl , ADD[RdcRegBase, 7]]; 

"The next two registers must be consecutive and doubleword aligned: IOCBptr and Synch. They are loaded together from the IOCB. 

"lOCBptr points to the IOCB of the current command.. 

RV[RdcI0CBptr, ADD[RdcRegBase, 10]]; 

"Synch is an interrupt mask loaded from tho CSB, -1 means stop the Controller; otherwise it contains an interrupt mask used to schedule M 
**esa processes after each sector wakeup. It is loaded at the beginning of the Idle State in order to see if it is necessary to stop proc 
""essing IOCBs. SectorT imeOutCount is used to count sectors until timeout for states DriveChange, SookWait, and SectorWait. CommandSynch 
"♦is used to load the Synch word from the IOCB to schedule Mesa processes at the end of the command. (Note: this is not the same as CSB.s 
**,ynch). LoopTest is used in the DataTransfer State as a temporary loop control. 

RV[Rdc5ynch, ADD[RdcRegBase, 11]]; 

RV[RdcSectorTimeOutCount, AOD[RdcRegBase, 11]]; 

RV[RdcCommandSynch, ADD[RdcRegBase,11]]; 

RV[RdcLoopTest, ADD[RdcRegBase,11]]; 

•CSBptr points to the Controller Status Block. 

RV[RdcCSBptr, ADD[RdcRegBase, 12]]; 
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♦.State tells what state we are in when we get a sector wakenp: Idle, SeokWait, SnctorWait, DataTransfer. State Is defined in more detail 
**below. Bit 0 will bo sot after a data transfer if wo got IQAttcn in the label field. 

RVf RdcStato, ADD[lldcRegfiase , 13] |; 

♦The following two registers must bo together and doubleword aligned: NewDriveCyl 1 ruler and NewlleadSec.tor. They are loaded together from t 
•♦ho I0CB. 

♦NewDrivcCylinder contains the drive and cylinder address for the current command, loaded from the IOCB. The Drive bits are stripped off 

♦♦during the test for seek, and it becomes MewCyl Inder. tt. is only used to determine whether a seek is required. RoyT is used to save the 

** value of T for I0Fetch4 and I0Store4 during data transfer operations. It is only used during the DataTransfer State. 

I!V[RdcNowl)ri vc:Cy 1 indor, ADD[RdcRegllaso, 14]]; 

RVfRdcNowCyl inder, ADI)[ RdcRegBaso , 14]] ; 

RVfItdcRegT, ADD[RdcRegBaso, 14]]; 

"NewlloadSector contains tho head and sector address of the current command, loaded from the IOCB, It is used to chock and see if we are a 
♦*t the right sector on the disk (if tho Sector bits match CurrentSector) before starting a command. It is not used after we start the da 
**ta transfer operation. 

KVfRdcNewlleadSector, ADD[RdcRegllaso , 15]] ; 

♦DiskStatus contains the state of tho Controller. It is loaded at each sector wakeup and when an error is detected. 

RVf RdcDiskStattis, ADD[Rdr.RcgBase, 10]]; 

♦ZcroBaso is used for memory commands to fetch and store data in the CSB and the IOCB, Since those control blocks are always in low memor 

**y, r is used as the address. Since this is an odd base register, ZeroBaso OR 1 is tho same register. 

Rv[RdcZeroUase,ORS[RdcRegBaso,!/]]; 


♦Constants 

MCfRdcAI Iowlask,100000 ]; *To allow task when returning from Dolnt. 

MCfRdcB il.0,100000 |; 

* The following definitions are for the Controller registers: 

SF.Tf RdcAdd r, LSlIIFTr RdcTask, 4]]; "The device address of the RDC (currently 22011). 

SETfRdcGeneralRoset, 0]; *General Reset 

SIT( [RdcStalus , l|; ‘Controller and drive status 

SEIfRdclnputBuffer, 17]; * fhi s register presents Buffcr[RdcMemBuffAdr]. 

SETf lldc Input, ADD[RdcAddr, 17] ]; "Complete dev ice address for above, 

SETf RdcDr i ve/llead , 1]; "'Drive is in bits 12-13 (10-11D), Head is in bits 14-17 (12-15D) 

SETf RdcErrorReset, Z]; ‘Error Reset (data is ignored) 

Stf[RdcDevOp, 3]; "Disk commands and allow wake bit 

SETf RdcOutput., ADD[RdcAddr,4 ]]; "Data loaded into 1 his register is wriLten into Buffor[RdcMemBufAddr]. 

SET[HdcHeinBuffAdr, 6]; ‘This register holds the current pointer into tho RDC ' s data buffer. 

SETfRdcPrimolDala, 7j; ‘This register must be accessed by OUTPUT before reading the first word of each sector from the Rdclluffer. 

*1 lie following definitions are for tho DovOpReg: 

MC|RdcAllowWnke, 4000]; "Allow wake bit must be sot at each Output if wakeups are to bo enabled. 

MCfRdcAl1owWakoAndSoekDirection, 5000]; 

MCfRdcSeekBiIs, 3000J; "Seek command bits 5-6 

MC [ RdcileadWri t.eBi t s , 377]; "Read-write bits 10-17 

MC jRdcSeek D, 6000]; "Seek command in negative direction (outward toward lower track numbers) plus allow wake. 

MC|RdcSeek'D, 7000); "Seek command in positive direction (inward toward higher track numbers) plus allow wake. 

MCfRdcWri telleader, 200]; "Wri te header 

MCfRdcDalaWri teOrVeri fy , 5] ; 

MCfRdcEabel ReadOrVerify , 30] ; 

MC[RdcReadData, 2]; 

"The following definitions are for the RdcStatus word: 

MCfRdcDevSolOK, 20]; "Dcvico is selected and ready. 

MCfRdcSeekCompleto, 40]; 

MCfRdcT rackO, 100]; 

MC| RdcScrvicel.ato, 2000]; 

MCfRdcRateError, 400J; 

MCfRdcSectorO, 200]; "Physical sector 0 
MC[RdcErrorBitsll igh, 400]; "RatcError 

MCfRdcErrorBitsEow, 17]; "BufErr, RdF.rr, WriteFault, Ofau'lt 

"The following definitions arc for offsets in the IOCB: 

MCfRdciOCB1abol, 4|; "label: Label (words 4-13B) 

MCfRdcIOCBlabel+4, 10]; "label: Label (words 10-13B) 

MCf RdcIOCBnoxt, 14]; "next: JOCBEink 
MCfRdcIOCBcommand, 16]; "Command 
MCfRdcIOCBdata, 16]; "data: LONG POINTER 
MCflldcIOCBcomp lotion , 20]; "completion ; Status 

MC[RdcI0CB:;,yncli, 21]; "synch: process wakenp mask 
MCfRdcTOCBsyndrome, 22]; 

♦The following definitions are for offsets in the CSB (Controller Status Block): 

MCfRdcCSBsyncii, 1]; "synch gets loaded into RdcStato. If bit 0 = 1, Quiet procedure says turn off Controller. 

MCfRdcCSBdr i vo, 2]; "drive; Status. 

MCfRdcCSBcontrollor, 3]: "controller state. 

MCfRdcCSBd iskAddross, 4]; "diskAddross: ARRAY[0..3] contains cylinder address only. -1 is for recalibrate. 

MCfRdcCSBoldIOCB, 1/J; "oldlOCB: XOCBLInk. 

*Ihefol1 owlng memory locations are for debugging with the microcode driver. 

MCfRdcRateErrorCount, 75]; "For debugging with microcode driver 

MCfRdcServ icel.ateCount, 76]; "For debugging with microcode driver 

MCfRdcileaderErrorCount, 77]; "For debugging with microcode driver 


"The following are timing definitions that are loaded into SectorTimeOutCount: 

MCfRdcileadSe ttlingTimeWakeUps, 37]; "Number of sector wakeups for head to settle after seek complete (20 mi 1iseconds, or ono disk rev 

""elution). 

MCfRdcSeekTimoOutWakeUps, 1000]; "Number of sector wakeups to wait until seek time out. 

MCfRdcDriveCliangoTimeWakeUps, 2]; "Number of sector wakeups to wait after drive change. 

MCfRdcSectorTiineOutWakeUps, 100]; "Number of sector wakeups to wait until sector time out when in state SectorWait. 
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“The following definitions aro for the controller State: 

MC[f!dcSoctorWait, 2]; 

■"Waiting for tlie sector on the disk. (CurrcntSector) to match the sector specified by the current command. 

Mf I'RdcSeokWa i t, 3'j; 

■'file Controller is seeking the cylinder specified by the current command, and wo aro waiting for SeekComp 1 ete to appear in the Status wor 
* * d. 

MCfRdcIdle, 4]; 

"This is the initial State. The Controller is not executing a command. Wo aro waiting for a now IOCB to be chained onto the CSB. (Note: 
"’wo count on this state being even). 

MC[RdcDriveChange, 5]; 

’’The Controller enters this state to wait for a drive to come ready when the drive changes between commands. (Note: wo count on this stat 
**o being odd). 

MC[RdcDataTransfcr, 6]; 

"Data transfer is in progress. At the next sector wakeup, we will check TOAttcn. 

♦The rest of the states are error states. 

MC[RdcDataError, 12J; 

"Enter this state from state DataTransfor if any error is detected. Bits in the Status word indicate the problem. 

MC[RdcSectorTimeOut, 13j; 

"Enter this state if the timeout occurs before the sector is found. 

MC[ Rdclieado r Error, 14]; 

•Enter this state if lOAtton occurs in tho Header field. 

MC| .RdcSockTimcOut, 15]; 

•Enter this state from state Seek if a time out occurs while doing a seek. 

MC[RdcDiskTimeOut, 10]; 

•Enter this state from DriveChange if time out occurs before the drive becomes ready. 

MC[RdcLahoi Error, 17]; 

•Enter this slate from state DataTransfor if lOAtton occurred while reading tho label field. 
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insert[d01ang]; 

NOMIDASINIT;LANGVERSION; 

titlc[RS232Async]; 

* Last modified by RRD on August 28, 1979 12:A3 PM fixed GlobalDefs conflicts 

* modified by Blto'on June 25, 1979 11:44 AM 

* Version 3.0 

InsortfGlobalDefs]; 

1nscrt[RS232Defs]; 

* This microcode uses a timer to simulate a hardware wakeup for the frame task. It uses 

* task 4 for the frame task, and task 0 for the bit task. 


SET TASK [RBTask]; 

ONPAGF. [RBPago]; 

* Wakeup occurred on input timer, Get input bit value and dispatch on input state, 

RlWako: $RIB i tf)i sp[ RSt a to] , AT [RTWakcLoc] ; 

DISP|IUChcck Start j, T <- (RS232) AMD (RI232Da!.a); 

* Start bit delected, chock bit to be sure its a start bit and not noise. 

RICheckSt a rt: GOTO [RIGood, ALU=0], T < (RDataMask) AMD (RDataSizeMask), AT [RIBitLoc,0] ; 
RI Se t S ta rt: I OADl !ME R[ RIHa I f B i t Lo ] j 

111 < (RDataMask) AND (RDataSlow); 

SKIPON | ALU/70]; 

RETURN; 

NOP; 

NOP; 

GOTO [RTimerReturn |, LOADT1MER[11 Ilia I fB i tH i] ; 

* Good start bit, increment to next state and set. whole bit timer 


RIGood: RIData <- T; 

RTNextState: RState «- (RStato) + (RTBStatelncr); 

RISc IT ime r: ADD EOT IMER[ It I Eli 1 IB i tLo] ; 

LU <- (RDataMask) AND (RDataSlow); 

SKIPON [ ALU//0 j; 

RETURN; 

NOP; 

NOP; 

GOTO [RTimerReturn], LOADTIMER[ RIFul IBitlli] ; 

* Data bit in. Shift into partially assembled character. If end of character, increment 

* state to check stop bit. 


RIShiftBit: RState <- (RState) XOR (T), AT [RIB i tLoc,1]; 

Dll LG 0 TO | RINoxtStale, RISetT iiner, R ODD], RIData < ( RSH[ R [Data , 1]) OR (T); 

* Justify character and check parity bit. 


SRTJustDispfRDataMask], 

DTSP [RIJustify], RStato < (RState) XOR (T); 

RT Just i fy: GOTO [RIParity], RIData <• RSII[ RIData , 3] , 

GOTO [RIParity], RIData < RSH[RIData,2], 

GOTO [RIParity], RIData < RSH[RIData,1], 

RIPari ty: $RPari l.yDi sp[RDataMask] , 


RIParNono: 
RTParOdd; 

RIPa rEven; 

RI Pa rOne: 

IIL Pa rZe ro : 

RI parC hk: 

RIData 

RIParGood: 


DISP [RIParNono], RState <~ (RStato) 


GOTO [RIClieckStop], RBTompl 


+ (RIBStatelncr); 
<■ T, 


GOTO [ItIParClik], UJ LDEfRState, RIParityBIt, 1], 
G0I0 j RIParChk], LU «- (LDF[RState, RIParityBit, 1]) 
GOTO [R IPa rClik] , II) «• L0I[ RBTompl, RIParityBit, 1], 
GOTO [ RIParClik] , LU «- (I.DF[ RBTeinpl, RIpnrityBIt, 1]) 
GOTO [RIParGood, AI.U//0]; 

- (RIOata) OR (RIDataParityErr); 

GOTO [RISetTimor]; 


AT [RIBitLoc,2]; 


AT [RIJustLoc,0]; 
AT [RIJustLoc,1]; 

AT [RIJustLoc,2]; 



AT 

[RlJustl.oc ,3] 


AT 

[RIParLoc,0]; 


AT 

[RIParLoc,1]; 


AT 

[RIParLoc,21; 


AT 

[RIParLoc, 3'j; 

1, 

AT 

[RIParLoc,4]; 


* Stop bit In. Chock to verify that this is a stop bit (Data=l). If not it's 

* either framing error or a break. Sot break/framing error counter. 


RIClieckStop: GOTO[RIT urn on, ALU//0], AT [ RIB i tLoc, 3] ; 

GOTO [RINextStatej, RIData <- (RIData) OR (3000C); 


* Checking for either framing error or break character. Wo do that by decrementing the 

* break/framing error counter each bit time until the line returns to the idlo state. 

* If the counter goes negative, wo call it a break. If not, it is just a framing error. 


SKIPON [ALIJ=0], RIData c (RIData) - (400C), 
DBL.G0T0 [RINotifyBreak, RINotifyErame, R<0], 
SKIPON [R> = 0], LU <- RIOata; 

RIData <- (RIData) + (400C); 

GOTO [RISetTimer]; 

RINot i fyF rame; GOTO fRITu rnOn] , RIData <- (RIData) OR 
RINotifyBreak: GOTO [RITurnOn], RIData <- (RIData) OR 


AT [RIBitLoc,4]; 
RIData «- RIIMASK[ RIData]; 


(RIDataFrameErr); 
(RIDataBreak); 


* Notify frame task that Input lias work 

RITurnOn: SKIPON [R<0], RState «- (RState) OR (OR@[RIActiveI , RXActive!]C); 

LOADTIMER[RE rameTime rl]; 

RState <- (RState) AND NOT (RIBStateMask); 

T <- (RPtrCSB) + (RliidexCharln); 

PStorel[IU3asoPage0, RIData]; 

GOTO [RISotStart]; 
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SET TASK[RBTask]; 

ONPAGE [RBPagc]; 

* Timor wakeup occurred on output. 

ROWake: RStackSave <- pRSImagc, AT [ROWakel.oc]; 

T <- (CetRSpec[103]) XOR (37/C): 

RStackSave <- T, SfKP <- RStackSavo, NoRegILockOK; 

$ RODitDisp[RStato]; 

DISP[ROIdle], T ♦- Stack «■ (Stack) AMD (376C); 

* Idle output state. Used for idling line and sending stop bits. 

ROIdlo: GOTO [ROSendBit], T <■• Stack <- (Stack) OR (1C), • AT [ROBitLoc,0]; 

* Get next input character. Notify frame code. 

* If wo have a character, send start bit. If no character to bo sent, idle line. 

ROStart: SKIPON [R<0], RState <- (RState) OR (QR0[ROActivo!,RXActivo!]C),AT [ROBitLoc.1]; 

l.OADT I ME R [ RF rameT i me r 1J ; 

T <- (RPtrCSB) + ( RIndexCharOut); 

PFetchl[RBasoPageO , ROData]; 

T «- (RDataMask) AMD (RDataSizoMask); 

SKIPON [ R> -0] , ROData <- ( LSII[ROData , 10] ) OR (T) ; 

GOTO [ROIdlo], RState •- (RState) • (ROBStatelncr); 

I <■ Stack; 

GOTO [HONoxtStato ], RS232 «- T; 

* Send data bit 


ROSendChar: T <■ I DF[ROData, 7,1], AT [ROBitLoc,2] ; 

RStato <- (RState) XOR (T) ; 

I < Stack «- (Stack) OR (T); 

ROScn dll i t: RS232 *- T; 

DBI.GOTO [RONextState, ROSetTiinor, It ODD], ROData <- RSII[ROData, t]; 

ROHoxtStato: RState *■ (RStato) ' (ROBStatelncr); 

ROSelTimor: SIKP < RStackSave; 

ADDTOTIMERj ROFu I IB i tl.o] ; 

ROl.oadTimer: LU • (RDataMask) AND (RDataSlow); 

SKIPON [ALU//0]; 

RETURN; 

NOP; 

NOP; 

GOTO [RTiinerRoturn |, I OAL) TIMER)ROFu I IB itlli]; 

ItOSe LTimerl: GOTO [ROl.oadT imer] , LOADT IMER[ ROTti 1 I [1 i tLo ]; 

* Send parity bit if parity sot 


ROParity: T <- $RStopili ts[RDataMask] , 

$RParityDisp[RDataMask]; 

11 ISP [ROParNoue ], ROData <- T; 


GOTO [ROIdlo], RState < (RStato) AND NOT (ROBStatoMask) , 
GOTO [ROParFven], RState *- (RState) XOR (ROParityMa.sk), 


ROPit i None 
ROParOdd: 

ROPa rEven 
ROPa rOno: 

ItOPa rZo ro 
ROParScnd: T 

RS232 <- T; 

GOTO [ROSetTimer], RState 


GOTO [ROParSend], T 
GOTO [ROParSend], T 
GOTO [ROParSend], T 


Stack <- (Stack) OR (T); 


i.DF[RSLato, ROParityBit, 1], 
1C, 

OC, 


(RStato) AMD NOT (ROBStatoMask); 


AT [ROB itLoc,3]; 


AT [ ROPa rl.oc , 0] 
A T [ ROPa rl.oc, 1] 
AT [ROParl.oc,2] 
AT [ ROPa rl.oc , 3 j 
AT [ROParLoc,4] 


Idle states, used for idling lino and sending break 

Stack <- (Stack) OR ( IC), 

RETURN, STKP < RStackSave; 

GOTO [ROSetTimer], 


AT [ROB i tLoc,4]; 
AT [ROB i t Loc,5]; 
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SET TASK[ RllTns k‘|; 

ONPAGE [RDPago]]; 

* Notify frame task that poller has work 

RPTurnon: SKIPO.'l [R<0“1, RStato «- (IlStato) OR (OR0[i<PActivo ! , RXAct ive!']C), AT [RPWakeLoc]; 

LOADTIMERfRT ramo'f iinorl]; 

RTimerRoturn: NOP; 

RETURN; 
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SET TASK[ RFTask]; 

ONPAGE [RFPage]; 

* Frame dispatch code 

* The frame code works in the following way: 

, Whenever the input bit code, output bit code, or poller code has some work for tho 

* frame task to perform, it sot the appropriate bit in UState indicating work has to 

* be done (llIActive, HOActive, or HPActive) and then If the frame code is not currently 

* running (RXActive indicates frame code running), it sets RXActive and loads RF ramef into rl 

* with a short timer. When this timer expires, control is passed to the following 

* instructions. They simply do a RETURN with UseCTask set to return to the last place 

* the frame code did a TASK. In addition, they reload the timer, so that after the next 

* TASK, tho frame code will again get control. The frame code can then run as though it 

* were a normal task doing RETURNS to give control to others. When it has finished 

* processing, it check the RIActlvo, ROActive, and RPActive bits in RStute to see if 

* more work needs to be done. If not, it clears RXActive and idles the frame timer. 

UseCTask, AT [RFWakel.oc]; 

RETURN, l.OADTIMER[ RErameTimerl] ; 

* The following code is used to initially set registers and the TPC for the frame task. 

SET TASK[O']; 

T *- R0, AT[RS232Startl.oc]; * Notify frame task at RS232Startl 

U0 *- $RSctl)i spl of RFTask, RS232Startl.ocl] ; 

liO < (R0) OR ($RSotl)ispll i[RTTask, RS232StartLocl]); 

APC&APCTask *- R0; 

RETURN, R0 <- T; * Restore R0 

SET TASK[RFTask]; 

RFrameTimerl <- AND0|'RFShortf imerLo, 377 |C , AT [ RS232StartLoc 1~|; 

RErameTimerl <- (REramcTimerl) OR (ANDQ[RFShortfimerLo,177400]C); 

RUasePagoO <- 0C; 

IdlasePageOl.o <- 0C ; 

RState »• 0C; 

RPtrCSD «- AND0[RS232CSBLoc,377]C; 

GOTO [ HClikAc t i ve ] , RPtrCSO <- (RPtrCSO) OR (AHDSf RS232CSBI.OC , 17 7400 ]C) ; 

* Checks to see if any part of RS232 code desires service. If so, the appropriate code is 

* branched to. If not, the frame timer is turned off to kill the frame wakeups. 

RNoneAct i ve: RTemp2 «- (RTcmp2) OR (AND0[ RFIdlof imerL.o , 177400 |C ) ; 

LOADriMER[RTemp2]; 

NOP, TASK; 

RState <- (RState) AND NOT ( RAc t i veMask) ; 

RChkActivc: LU *• (RState) AMD (REActive); * Check input active 

GOTO [RIFrameStart, ALU//0], LU <- (RState) AND (ROActive); * Check output active 

GOTO | ROE raineStart, A1.U//0], LU (RState) AND (RPActive); * Chock poller active 

DIILGOTO [RPol lcrStart, RNoneAc live, AI.U//0 ], illempZ <- AND@[ RE I d ! oT imerLo , 37 7 ]C ; 
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SET TASK[RFTask]; 

ON PAGE[RrPage]; 

* Poller. Updates ToDCE bits and checks FromDCE bits notifying the user when the bits 

* change. Also, handles commands 

RPol lorS'tart: T *- (RPtrCSil) + (RIndexToDCF.); 

CALL [RRTask], PFotch2[RBasePageO, RPToDCE]; 

* Process commands. Tf break in progress, shift bit in ROData to the 

* right. When It makes ROData ODD, break if finished. Clear break 

* In progress and restart transmitter. 

LI) <- (RStato) AND ( RBreakI 11 P rog ress ); 

GOTO [RPDoCmd, ALIJ = 0], $RPCnulD i sp[RPToDCE] : 

GOTO [RPCmdE, R>=0], ROData <- (ROData) - 1; 

GO TO [RPStartXmtr], RState *- (RStato) AND MOT (RBreaklnProgross); 

RPDoCmd: DISP[. + 1]"; 

* Commands 

* 0 = Command proccossed 

* l - Nop 

* 2 = Reset 

* 3 " startRecoivor 

" 4 = startTransmittor 

* 5 = Stop Receiver 

* G ;; Stop Transmi Ltor 

* / = Send Break 

* 10 = Set Parameter 

" 11. = Clear Ring Indicator 

* 12 Clear break detected 

* 13 = Clear Data Lost 

* Command “ 0~ > Command processed 

* Don’t touch command field in case Mesa is in middle of storing a command. 

RPNoCmd: GOTO [RPCmdEl], AT [RPCindLoc, 0 ]; 

* Command = l => NOP 

* Sot command field to zero. Used to make sure poller is alive, 

RPNop : GOTO [RPCmdE], AT [ RPCindLoc, 1] ; 

* Command = 2 => Reset 

* NOP for now. ** DO WE NEED THIS COMMAND? ** 

RPRcset: GOTO [RPCmdE], AT [ RPCindLoc, 2]; 

* Command = 3 -> Start Receiver 

* Start receiver timers and set input state to waiting for start bit 

HPStartRcvr: LOADPAGF] RBPago] , AT [RPCindLoc,3]; 

CALLP[RTSelStart]; 

GOTO [RPCmdF], RStato <- (RState) AND NOT (RIBStatcMask); 

* Command = 4 => Start transmitter. 

* Set transmitter timers and set output state to sending idle. 

RPSta rtXmt r: T <- (RPtrCSB) + (RIndoxCliarOut), AF [RPCindLoc , 4] ; 

RT amp 2 <- 100000C; 

I’Sto rel[RBascl’ageO, RTemp2 |; 

LOADPAGF[ RBI 1 ago |; 

CALLP[ROSetT imo rl]; 

RState *- (RState) AND NOT (ROBStateMask); 

GOTO [RPCmdF ], ROOata «- 200C; 

* Command = 5 => Stop receiver. 

* Set idle timer for receiver bit code. 

RPStopRcv r: RTomp? <- AND0[RI Idl eTimerl o, 17 7400]C , AT [ RPCindLoc , 5] ; 

RTemp2 <- (RTeinp2) OR (AND@[ RII d loT imorlo , 37 7]C); 

GOTO [RPCmdE], LOADTTMER[RTemp2]; 

* Command = 6 => Stop transmitter and idle line. 

* Set short timer and sot line to 1. 

RPStopXmtr: RState *■ (RStato) AND NOT (ROBStateMask), AT [RPCindLoc, 6]; 

RState *- (RState) + (R0BStateTncr4); 

RStackSavo <- pRSImage; 

T <- (GetRSpec[ 103]) XOR (377C); 

RStackSave <- f, STKP «- RStackSave, NoRegILockOK; 

T e stack <- (Stack) OR (1C); 

STKP <- RStackSavo; 

RS232 <- T; 

ROSliortSet: RTemp2 <- AND@[ROShortTimerLo , 177400]C ; 

RTemp2 <- (RTemp2) OR (AND@[ ROSho rtT line rLo , 377]C) ; 

GOTO [RPCmdE], LOADTIMER[RTemp2]; 

* Command = 7 => Send Break 

* Set output state to sendbreak, enable break timer, and set short timer 

RPBreak: RState «- (RState) AND NOT (ROBStateMask), AT [RPCmdLoc,7 ]; 

RState <- (RState) + (ROBStatelncrb); 

ROData «- 62C; 

GOTO [ROShortSot], RState <- (RState) OR (RUroaklnProgress); 


* Command - 10 => Set Parameters 

* Load registers from DO memory 
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RPSctParm: T <- (RPtrCSB) i- (RIndoxParm) , AT [RPCmdl.oc, 10]; 

CALL [RFixBaseReg]. PFetch2[RBasePageO, RfHifiBase] ; 

PFetch4[RBufBase, RIFullBitLo.O]; 

CALL [RRTask], PFe tcli2[ RIlufBase, ROFuIlDULo ,4]; 

GOTO [RPCmdE], PI-etchl[RBufBase, RDataMas k, 9] ; 

* Command = 11 => Clear Ring Indicator 

RPRIng: GOTO [RPCmdE], RPFromDCF. <- (RPFromDCE) AND HOT ( RFromDCER !ng ), AT [ RPCindLoc., 11] ; 

* Command - 11 => Clear Break Detected 

RPNoB roak: GOTO [RPCmdE], RPFromDCE «■ (RPFromDCE) AMD NOT ( RF romDCEB reuk), AT [ RPCindLoc , 12] ; 

* Command = 11 => Clear Data Lost 

RPLost: GOTO [RPCmdE], RPFromDCF. (RPFromDCE) AND HOT (RFromDCELost), AT [RPCmdLoc, 13]; 

* Clear command Field 

RPCmdE: RPToDCE <- (RPToDCE) AMD (377C); 

T *■ (RPtrCSB) > (RIndoxToDCE), TASK; 

PStorol[R3asePage0, RPToDCE]; 

* Set ToDCE bits. 

RPCmdEl: RStackSavo <- pRStmage; 

T < (GetRSpec[103] ) XOR (377C); 

RStackSave <• T, STKP *• RStackSave, NoRegTLockOK; 

T < (RPToDCE ) OR NOT (RToDC( Mask); 

Slack <■ (Stack) AND NOT (RToDCEMask); 

T « (Stack) *- (Stack) OR NOT (T); 

RSZ32 «- T, TASK; 

STKP RStackSave; 

* Check FroinDCE bits and post user if they have changed. Note that the bits are negative 

* logic. Also, RPNew will! contain any non-hardware bits that have Lo be set (like 

* Datal.ost, BroakDetected, B renklnP rog res s) . 

T «- (RS232) OR NOT (RFroniDCEHask) ; 

RPNew «- (RPNew) OR NOT (T); 

T <- (RPFromDCE) AND NOT (RNotl.atchedMask); 

RPNew «- (RPNew) OR (T); 

T <- (RPtrCSB) i ( RlndexFromDCE) , TASK; 

PStorol[RBasoPagoO, RPNew]; 

T <- RPFromDCE; 

I.U <- (RPNew) XOR (T); 

GOTO [RNoDCEChange, ALU=0], T < (RPtrCSB) <■ (RIndoxMask) ; 

NOP; 

CALL [RPost], PFetchl[RBasePageO,RTempZ]; 

RNoDCECIinngo; RPNew < OC; 

GOIO [RChkAct ivo], RState <- (RState) AND NO]' (RPActivo), 
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SET TASK[RFTask]; 
ON PAGE[RFPage]; 


* Input event, have received a character. Dispatch on input event, 

* Fvents aro: 

* 0 => Received a good character. Store it in IOCB buffer. 

* 1 => Received break. Signal Break detected. 

* 2 => Received character with parity error. Set error and store character in IOCB. 

* 3 => Received character with framelng error. Sot error and store character in IOCB. 


RIFrameStart: CALL [RGotPtrlOCB], T (RPtrCSB) i- (RlndoxIOCBIn); 
RFState <- (RFState) OR (RFStatelnput); 

CALL I'RGetPtrs], UseCTask; 

Coro [RIOataLost, ALU=0], T <- SRILventDIsp[ROata]; 
t)ISP[.H], RTempZ <- RStatFramoErr; 

* Events are: 

* 0 => Character received OK 

* 1 . Break received 

* 2 => Parity error 

* 3 =: > Framing error 

GOTO [RIStorcChar], 

GOTO [RIF inish'l, RPNcw <- (RPNow) OR (RFroaiOCf.Brank), 
RTempZ <- RStatPar i tyErr, 

NOP, 

CALL [RSetStatus]; 


AT [Rif vontLoc,0]; 
AT [ RIF. ven tLoc, 1] ; 

AT [ HI Even tLoc, 7 .] 
AT [RILventLoc,3] ; 


* Character received, store it in buffer. If not enough room in buffer, advance to next 

* IOCB unless RCmdfnd set in which case set DATALOST and w.rit for frame to end. 


RISto reChar: 

LU < 
GOTO 

RIBli TFu 11 : 

NOP; 
CALI¬ 
CO TO 

UIMus ttiul: 

GOTO 


CALL [RRTask], T <- (RRCount) <- (RRCount) + 1; * Verify room in buffer 

(RMaxCount) - T; 

[IftBufSpace, ALU>*0], LU + (RCoinmand) AND (RCmdLnd); 

GOTO 1 R[MustEnd, ALU//0 ], RRCount <■■ (RRCount) - 1; 

[RDonelOCB]; 

[RIStorcChar]; 

CALL [ RSetStatus], RTenipZ *- RStatLos t; 

[RIDoBCC j; 


* Room in buffer. Store character in buffer. This is slightly complicated due to the 

* fact that we are storing a byte rather than a word. ROffset+RRCount gives the byte 

* offset into the buffer. 


RIBufSpace: ROffSet <- (ROffSet) + T; 

ROffSol < (ROffSet) - 1; 

GOTO [RIStoroEvon , R EVEN], T <- RSII[ ROf f Set, 1]; 

PFetclilf RBuf Base , RTempZ]; 
r <~ RIIMASKfRData |, CAU.[RRTask ] ; 

RTenipZ <-■ ( LHMASK[RTempZ]) OR T; 

GOTO I'RIDoStore]; 

RIStoroEvon: T «- LStl[ RDa ta, 10] ; 

RTeinpZ T; 

RIDoStore: T <- RSH[R0f fSet, 1], TASK; 

PStorel[RBufBase.RTempZ]; 

RIDoBCC: CALL [RDoBCC]; 

* Now dispatch on frame state 

* States are: 

* 0 -> just inputted a character, chock if special case 

* 1 -> just inputting first part of BCC, increment state 

* 2 => just inputted second half of BCC, check it and end frame 

* 3 => counting down to end of frame, if RFStateCO end the rramo 

$RLStateDisp[RFState]; 

D.f SP[ . +1] ; 

* State = 0. Normal state, check if special type of character. 

* Special types are: 

* 0 => not special type. Do nothing. 

* 1 => BCC starts accumulating AFTER this character. Set RBCC 0 

* 2 => BCC received ALTER this character. Increment LStato to receiving BCC state. 

* 3 => Frame ends in 11 characters. Set FState to countdown to end of frame. 


SRICharDisp[RTemp2], 

DISP [.+11, RTempZ <- ( LDF[ RTemp2 ,16,2]) -1 5 
GOTO [RIF'inlsh], 

GOTO [RIFinish], RBCC + 0C, 

GOTO [RIFinish], RFState <- (RFState) + (RFStatelncr), 
T <- LSII[RTemp2, Id ] , 

RFState <- (RFState) + ( RFStatelnc r3); 

GOTO [RICheckF.OF], RFState + (RFState) OR (T); 

+ State = 1. Inputting first half of BCC. Increment FState 


AT [RIFrameLoc,0]; 

AT [RISpecLoc,0]; 

AT [RISpecLoc,1]; 

AT [RISpecLoc,2]; 

AT [RISpecLoc,3]; 


GOTO [RIFinish], RFState *- (RFState) + ( RFStatelricr), AT [ RIFrameLoc, 1] ; 

* State = 2, Got second half of BCC. Check that accumulated BCC is equal to zero 

* and sot BCC error if not. Then end the frame. 


LU + RBCC, AT [RIFrameLoc,2]; 

GOTO [RIBCCOk, ALU=0]; 

NOP; 

CALL [RSetStatus], RTemp2 + RStatBCCErr; 

RIBCCOk; GOTO [RIEndFrame], RFState + (RFState) - (RFStatoIncr2); 


State=3. Ending frame after n characters. Decrement top part of RFState checking it 
first to see if has gone negative. If it lias, end of frame has occurred, so reset 
FState and end the frame. 
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RTCheckEOF: SKIPON [R<0], RFState *• (RFState) - (RFCountlncr), AT [RIFrameLoc ,3]; 

GOTO [RIF in ish] ; 

RFState <- (RFStata) - (RFStateIncr3); 

RI End Frame: RFState <• (RFState) AND NOT (RFStateCountBits); 

CALL [RDonelOCB]; 

SKIPON [AL.U-0] , LU «- (RCommand) AMD (RCindStart); 

DBI.GOTO [RIEndFrame, RIFinish, ALU-0]; 

GOTO [RINoSave]; 

* Save registers In IOCB 

* Save registers In CSD 

* Check for more work 

RIFinish: CALL [RSavelOCBJ; 

RINoSave: CAM [RSavoCSR], T <- (RPtrCSB) > (RlndexTOCRIn); 

GOTO [RChkAct ive], RState <• (RState) AND MOT (RIActive); 

* No input IOC5, mark Data Lost 

* Currently Datal.ost is set when a break conies in without any 10CBS. 

* (This is MOT CORRECT!!! ! ) 

RIDataLost: GOTO [RINoSave], RPNow <- (RPNew) OR (RFromDCEI.ost); 
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SET TASK[ RFTas k“J; 

ONPAGE [RFPagej; 

* Output character has been sent. Load up registers. 

ROFraineSta rt: CALL [RGetPtrlOCB], T <- (RPtrCSB) + (RlndoxIOCBOut.); 

CALL [RGetPtrs], UseCTask; 

* Need a character. Dispatch on state 

* States are: 

* 0 -> Just sent a character. Got next character from IOCR. 

* l => Just sent character before BCC. Send first half of BCC. 

* 2 => Just sent first half of BCC. Send second half of BCC. 

* 3 => Just sent last half of BCC. Idle transmitter. 

* A = > Just idled transmitter. Signal IOCB complete. 

ROD i spa tell: $RFStateDi sp[RFS tate] ; 

DI5P[.H], T <- RRCount <- (RRCount) - 1; 

* A character has been sent, see if any more characters in buffer. 

* If nothing in buffer, check EndFrame bit and If set, end the frame. 

ROChockCount: GOTO [ROGotChar, ALU> = 0'|, LU <■ (RCommand) AND (RCmdEnd), AT [ROFrameLoc, 0]; 

GOTO [ ROF.ndF rame , ALU//0] , RRCount *■ (RRCount) + 1; 

RONexLXOCB: NOP; 

CALL [RDonelOCB]; 

GOTO [RODi spatcii]; 

* Got character, send it. Again, things are slightly complicated by the fact that wo 

* are sending a byte rather than a word. 

ROGotChar: T «- (RMaxCount) - T; 

ROffSot <- (ROffSct) I- T; 

ROrfSet <- (ROffSot) - 1; 
r <- RSIIf ROff Set, 1 J , TASK; 

PFetch 1[RBufBase, RData]; 

GOTO [ROSondOdd, R ODD ], LU <- ROffSet; 

ROSondFven: GOTO [RODoBCC], RData <- RSH[RDala,10]; 

ROSondOdd: GOTO [RODoBCC], RData <- RIIMASKf RData]; 

* End of frame, since we got hore, we must want to end frame, so set state to idling 

* transmitter. 

ROF.ndE ramo : RFState «- (RfStato) <■ (RFStateIncr4), CALI.[ RR Task] ; 

GOTO [RONoSave], RData <■ 100000C; 

* Just sent character before BCC, send first BCC character and increment state 

ROSendBCC: T «- RIIHASK[RBCC j, AT [ROFrameLoc, 1]; 

RData <- r, CAFF [RRTask]; 

ROlncrl rame: GOTO [RONoSave], RFState (RFState) ' (RFStatetrier); 

* Just sent first half of BCC, send the second half. 

GOTO [ROSendBCC], RBCC «- RSH [ RBCC , 10], AT [ ROT rameLoc , 2]; 

* Just sent second half of BCC, look for more characters 


ROIdleXmtr: RFState <- (RFState) ( RFStatelncr.T) , AT [ ROF rameLoc, 3]; 

GOTO [ROCheckCounl], LU «- RRCount; 

* Just idled transmitter, mark IOCB complete and advance to next IOCB 


GOTO [RONextIOCB] , RFState <- (RFState) ( RFStatoInc r4), AT [ ROF ramel.oc , 4] ; 

* Calculate BCC and check for special characters 

* Save IOCB registers 

* Save CSB registers 

* Check for more work 


RODoBCC: CALL [RDoBCC]; 

$RICharDisp[RTemp2]; 

1)1 SP [.+!]; 

GOTO [ROFinish], 

GO TO [ROFinish], RBCC «- 0C, 

GOTO [ROFinish], RFState <- (RFState) + (RFStatelncr). 

ROFinish: CALL [RSavcIOCB], 

RONoSave: CALL [RSavcCSB], T <- (RPtrCSB) + (RIndexIOCBOut); 

GOTO [RChkActive], RState «- (RState) AND NOT (ROActive); 


AT [ROSpecLoc,0]; 

AT [ROSpecLoc,1]; 

AT [ROSpecLoc,2]; 

AT [ROSpecLoc,3]; 
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SET TASK[RFTask'J; 

0NPAGE[RFPage]; 

* Finish off IOCB buffer. If status is zero, set status to success. 

* Dequeue IOCB from chain. Issue naked notify. 

* If new TOCO exists, reload registers from IOCB. 

RDouelOCB: UseCTask; 

T <- APC&APCTask, TASK; 

RSave «• T; 

ROonelOCBl: LU <- (RComp) AND (RCmpStatus); 

SKIPON [ALU//0] ; • 

RComp <- (RComp) + (RStatOk); 

CALL [RSavelQCB ], RComp <- (RCoinp) OR (RCmpProc); 

CALL [RNextIOCB], T *- (RPtrlOCB) + (RTndexNox t); 

T <- ([(Command) AND (OR0[RCmdWakeAn ! , RCmdWakeErr! ]C); 

LU (RComp) AND T; 

GOTO [RGetlOCB, ALU-0], T <- (RPtrCSB) -i- (RlndexMask); 

NOP; 

CALL [RPost], PFetchl[RBasePageO, RTemp2|; 

GOTO [RGetlOCB]; 

* Get buffer pointers. 

RGetPtrIOCB: RETURN, PFetch4[RBasePagc0,RPtrIOCB]; 

RGotPtrs: T <- APC&APCTask; 

RSave *- T; 

RGetlOCB: T «- RPtrlOCB; 

GOTO fRNoIOCB, ALU---0]; 

CALL [R R T a s k], P Fe tch4[RB a s o P ag o 0,R B ufB a s e]; 

T <- (RPtrlOCB) + (RIndexCount) ; 

CALL [RFixBasoReg] , PFetch4[RBascPageO,RRCount]; 

GOTO [RSubReturn]; 

* What to do if we don't have an IOCB! 

* On input, return to caller and lot him decide if he wants to set Datal.ost 

* On output, idle line 

RNoIOCB: DBlGOTO[RINoIOCB, RONoIOCB, R ODD], LU < RFStato; 

RINoIOCB: GOTO [RSubReturn]; 

RoNoIOCB: GOTO [RONoSave], RData <-- 100000C; 
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SET TASKfRFTask]; 

OWPAGEfRFPagoj; 

* Accumulate BCC 

RDoBCC: UseCTask; 

T <- APC&APCTas k, TASK; 

RSave <- T; 

T <- (RPtrCSB) + (RtndexBCCTablo); 

CALI, [RFixBaseReg ], PFotch2[ RBasePageO, RBufBasej; 

T < RData; 

T <■ (RIIMASKf RISCC]) XOR (T), TASK; 

PFetchlfRBufBase,RToinpZ]; 

T <- (R'lempZ) ; 

RBCC <- (RSH[RBCC,10]) XOR T; 

* Load character type from ondofframe table. 

* Types of characters 

* 0= normal 

* 1 = start BCC 

* 2 = end BCC (io generate or check BCC). Implies end of block on input 

* 3=end of block 

RChockSpec: T <- (ROata) + (400C); 

CALL [RRIask], PFetchl [RBufBase, RTemp2]; 

RSubReturn: APC&APCTask <- RSavo; 

RRTask: RETURN, LU «- RPtrlOCB; 
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SET TASK[ RFTask] ; 

ONPAGE[RFPage]; 

* Fix up base register. 

RlixUaseReg: T {LSII[MSurBasel.o, 10]) + 1; 

RETURN, RBufBasoLo <- (Rfiuf BasoLo) OR ( T) ; 


’ Set completion status. IF no previous error, set status in IOCB and set error. 

RSotStatus: LU <- (RComp) AND (RCmpStatus); 

GOTO fRRTask, ALU//0], T <-■ ( RTompZ) OR (RCmpE rro r) ; 

RETURN, RComp <- (RComp) OR (T)j 


* Save IOCB ptrs. 

RSavelOCB: T <- (RPtrlOCB) + (RtndoxCount); 

RETURN, PStore4[RBasePageO, RRCount]; 


* Save CSB ptrs. 

RSavcCSB: PEe tch l[ RBase-PagoO , RPtrlOCB]; 

LU <- RPtrlOCB; 

RETURN, PS to re4[RBasePageO, RPtrlOCB]; 


* Point to next IOCB. This has to bo done without TASKing. 

RNextIOCB: PFotcii l[RBasePageO , RNoxt]; 

DBL.GOTO[.+l, .+2, R ODD], LU <- RFState; 

GOTO [ . f 2 ] , T <- (RPtrCSB) + ( RTndox IOCBIii ); 

GOTO f.H], r «- (RPtrCSB) -i- (RIndox IOCBOut) ; 

LU <- RNoxt; 

PS toroi[RBasoPagoO,RMex t]; 
r <- RNext; 

RETURN, RPtrlOCB <- T; 


* Post Complete 

RPost: RStackSave < pNWW; 

T <- (GotRSpecf 103]) XOR (377C); * read stkp 
STKP «- RStackSave, RStackSave <- T, NoReglLockOK; 
T <- R romp 2; 

Stack <- (Stack) OR (T); 

RTemp2 <• pRSImago; 

STKP *- RTemp2; 

T «- Stack < (Stack) OR (IOC); 

RS232 < T; 

RETURN, STKP <-■ RStackSave; 
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* Last modified by Bllll on June 1, 1979 12:13 PM 

* Version 3.0 

iuse rt.[ l!S232Async] ; 
iiise rt[ RS232Tes t] ; 

F.ND; 


f 
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insert[d01ang]; 

NOMIDASXM1T;LANGVERSION; 

TITLE [RS232BH]; 

* 00 microcode for bit synchronous RS232C 

* Last modified by QRQ on August 20, 1979 1:12 PM fix GlobalDefs conflicts 

* modified by BUD on Juno l,‘l979 12:13 PM 

insort[GlobalDefsj; 
insort[RS232Defs]: 

SET TASK [RBTask]; 

ON PAGE [ROPngeJ; 

* Tinier wakeup occurred on input. Get input bit and check if zero or one bit 

RlWake: T <• (RS232) AMO (RT232Data), AT [RIWakoLocj; 

OBLGO IO[RIFoundZero, RIFoundOno, ALU-0], RllCount < (RllCount) -• 1 ; 

* Zo i'o b i t 

* RflCount > 0 ==> normal: siiift this bit into character if lino in sync 

* RllCount = 0 ==> 0 ones in a row: this is a fill zero so throw it away 

* RllCount < 0 =-> special character, either flag or abort 

RIFoundZero: G0T0[RICheckSpec, ALIKO], LU (RllCount); 

1)0 LG 0 TO [RlSIiif tChar, RISetTiiner, ALU//0], RllCount <- GC ; 

* One bit 

* RllCount > 20 = = > line idle: set count to 2L; 

* RflCount > 0 = = > normal: shift this bit into cliaracter if line in sync 

" RllCount <= 0 -=> inside special character, ignore bit 

* RllCount - -20 =-> lino is idle: signal frame task, and set count to +21 

RfFoundOno: GOTO[RICheckIdle, ALU>=0], LU <• (RllCount) + (20C); 

SK.TPON [ ALU//0]; 

GOTO [RIS ignai Id I u ], RllCount «- 2 1C ; 

GOTO [RTimcrReturn |, LOAD TTMER[ li ISyncT ime r] ; 

RICheckIdle: LU <- (RllCount) AND (20C); 

GOTO [RlStii ftCharl, ALU-01; 

RllCount <- 21C ; 

RISh iflCharl: GOTO [ ItXSIii ftCliar J ; 

RCNoxtChar; RIData <- 200C; 

RISotTimer: GOTO [RTimerReturn], LOADTIMI R[ RISyncT ime r]; 

* Shift in character. 

RISh i f tChar: SKIPON [R ODD], RIData <■ ( RSH[ RIData , l] ) OR (T); 

GOTO [RTimcrReturnJ, LOADTIMER[RISyncTimer]; 

* Have a character, decide if a valid one 

* States are: 

* 0 => line idle, ignore character 

* 1 => line in sync, notify frame code 

* 2 --> line in frame, justify character and notify frame code 

JRIBitDisp[RState]; 

DISP[.+1]; 

GOTO [RINextChar], 

RState <- (RState) + (RIBStatelncr), 

GOTO [RITurnOn], 

* Special character, determine if idle (R11 Count = -1) or abort (RllCount<-1) 

RICheckSpec; LU <• (RllCount) *• 1; 

DBLGOTO[RISignalFIag, RISignalAbort, ALU=0], RllCount GC ; 

* Have a flag. Dispatch on state 

* States are: 

* 0 => line idle, increment state 

* 1 => line in sync, ignore 

* 2 => line in frame, signal endofframe, decrement state 

RISigna 1F1ag: $RIDitDisp[RState]; 

DISP[.+1]; 

GOTO [RINextChar], RState (RState) + (RIBStatelncr), AT [ RIF1 agl.oc, 0]; 
GOTO [RINextChar], AT [RIF lag Loo,1]; 

RState + (RState) - (RIBStat.oIncr), AT [ RIF1 agLoc , 2] ; 

GOTO [RITurnOn], RIData <- RIDataFIag; 

* Have an AllRT. Signal frame code 

RISignalAbort: RState * (RState) AND NOT (RIBStateMask); 

GOTO [RITurnOn], RIData *■ RIDataAbrt; 

* Have detected an idle line. Decide if should notify frame task 

* States are: 

* 0 => line idle, ignore 

* 1 => line in sync, set state to idle 

* 2 => line in frame, notify frame task and set state to idle 

RISigna!Idle: $RIBitDisp[RState]; 

DISP [.+1]; 

GOTO [RINextChar], AT 

GOTO [RINextChar], RSTate <- (RState) AND NOT (RIBStateMask), AT 
RState <- (RState) AND NOT (RIBStateMask), ' AT 

GOTO[RITurnOn], RIData «- RIDataldlo; 


[Rlldleloc.O] 
[RIIdleLoc,1] 
[RlldleLoc,2 j 


AT [RIBitLoc.O] 
AT (RUIitLoc,!] 
AT j RIB i tl.oc, 2] 





rs232Bit.mc 


3-Nov~79 19:15:53 


Page 2 


* Notify frame code that something happened 

PITurnOn: SKIPON [IKO], RState - (RState) OR (OR®[RIAct1vo!,RXActive!]C); 

LOADTIMF.R[RFraineT i inert] ; 

T «- (RPtrCSB) + (RlndoxCharln); 

PSto rclfRIJasePageO, RIData]; 

GOTO [RTMoxtChar]; 
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SET TASK [RBTask]; 

ON PAGE [RBPage]; 

* Timer wakeup occurred on output. 

ROWake: RStackSavo «• pRSImago, AT [ROWakeLoc]; 

T (GetRSpecf 103]) XOR (377C); 

RStackSave «- T, STKP <- RStackSavo, NoReglLoekOK; 

$ROBitl)isp[RStato]; 

DISP[.+1], T <- Stack <- (Stack) AND NOT (1C); 

* Send zero and notify task if count < 0. Otherwise, switch to sending ones 

ROSend/.oro: RS232 <- T, AT [ROBitLoc, 0]; 

GOTO [ROTurnonO, R<0], LU «- ROlCount; 

RStato *• (RState) + (ROBStatelncr); 

ROSetTInter; GOTO [ROStackReset], I.OADTIMER[ ROSyncTimorJ; 

ROTurnonO: RState «- (RState) + (RORStato.Incr2); 

GOTO [ROTurnon], ROlCount <- 4C; 

* Send one and switch state to SendZero if ROlCount < 0 

ROSendOne: T «- Stack «- (Stack) OR (1C), AT [ROB i 1 Loc , 1] ; 

GOTO [ROSondlt, R>“0], ROlCOunt <- (ROlCount.) - 1; 

GOTO [ROSondlt], RState <■ (RStato) - (ROBStatoIncr); 


* Send next character bit 

GOTO [ROtnsert, R< 0 [|, ROlCount «- (ROlCounl) - 1, AT [ROBittoc, 2|; 

T <• LDF [ ROData , 7, 1]; 

SKXPON [ALU//0], T <- Stack <- (Stack) OR (T); 

ROlCount ♦- 4C; 

RS232 <- T; 

ROSondBit: DBLGOIO [ROTurnon, ROSetliiner, R ODD],ROData < RSH[ ROData , 1]; 


* Idle state used to idle lino 

GOTO [ROStackReset], Stack «- (Stack) OR (1C), AT [ROBittoc, 3|; 

* Need to insert a zero. Output zero bit and reset one b’t counter 

ROlnsert: ROlCount <- 4C; 

ROSendlt: GOIO [ IIOSo tTimer] , RS232 «- T; 

* Got next character to bo sent and notify fame task work needs to bo clone 

* Notify frame task that output has work 

RO fu rnOn : LOADTIMER| ROSyncTime r] ; 

T <- ( 111 1 1 i'CSB ) + (RlndcxChaiOut); 

RTotch1[RBasoPageO, ROData]; 
r *- 2 OOC ; 

GOTO [RONotri ag , R > = 0 J, ROData «- (LSII[ ROData , 10]) OR (T); 

ROSencHlag: ROlCount *- 4C ; 

RStato <■ (RState) - ( ROBStat olnc r2 ) ; 

RONotFlag: SKIPON [R<0], RState (RState) OR (OR0[ ROAc t i ve ! , RXAct i ve ! ]C) ; 

LOADTIMF.R[RTraineT imerl]; 

ROStackReset: GOTO [RTimerReturn], STKP < RStackSave; 
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SET TASK[RBTask]; 

ONPAGF. [RFPago]; 

* Notify frame task that pol'lor has work 

RPTurnon: SKIPON [R<0], RStato <- (RStato) OR (OR0[RPAct lve! , RXActivel'JC), AT [RPWakeLoc]; 

LOADTTMF.Rt HP rameT line rl] ; 

RT iino rRoturn : NOP; 

RETURN; 
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SET TASKfRFTask]; 

ONPAGE [REPageJ; 

* Frame dispatch code * 

■* The frame code works in the following way: 

* Whenever tho input hit cods, output hit code, or poller code has some work for the 

* frame task to perform, it set the appropriate bit in RState indicating work has to 

* be done (RIActive, ROActivo, or RPActive) and then if the framo code is not currently 

* running (RXActive indicates frame code running), it sot;; RXActive and loads RFrame 1‘imerl 

* with a short timer. When this timer expires, control is passed to the following 

* instructions, They simply do a RETURN with IJsoClask set to return to the last piaco 

* the frame code did a TASK. In addition, they reload the timer, so that after the next 

* TASK, tho frame code will again got control. The frame code can then run as though it 

* were a normal task doing RETURNS to give control to others. When it has finished 

* processing, it check the RIActive, ROActivo, and RPActive hits in RState to see if 

* more work needs to bo done. If not, it clears RXActive and idles the frame timer. 

UseCTask, AT [RFWakeLoc]; 

RETURN, LOADTIMER[RFrameTiinorl] ; 

« The following code is used to initially set registers and the TPC for the frame task. 

SET TASK[0;|: 

r <• RO, AT[RS232Slartl.oc]; * Notify task 0 at RS232Startl 

RO <- $RSo tD i spLo| RETask , RS232Starti.ocl ]; 

RO *- (RO) OR ($RSe tl)i spill [RETas k, RS232Startl.ocl |); 

APC&APCTask «- RO; 

RETURN, RO <• T; * Restore RO 

SET TASK[RETask]; 

RErameTimerl < AND6f REShortT imerl o, 3/7)C , AT f RS232St a i t.Loci); 

RFramoI ime rt <- (RErameTimerl) OR (ANI)@[ RFSIio rtTimcrLo, 1/7400 JC); 

RdasePageO «• OC; 

RRasePageOLo <■ OC; 

RState < OC; 

RPtrCSB < AND@[ RS232CSilLoc , 377 ]C ; 

GO 10 [RChkActive], RPtrCSB *• (RPtrCSB) OR (AND®[RS232CSBLoc,1 //400|C); 

* Checks to see if any part of RS232 code desires service. If so, it is branched to. 

* If not, the frame timer is turned off to kill the frame wakeups. 

RNoneAct ivo: RTemp2 <- (RTcmp2) OR ( AND@[RFIdle TimerLo, 17 /400 JC ) ; 

LOAOTIMER[ RTemp2’|; 

NOP, TASK; 

RState <- (RState) AND NOT (RActiveMask); 

RChkAct ivo: LU «- (RState) AND (RIActive): * Check input active 

GOTO [RIF rameStart, ALU//0 '|, LU <- (RState) AND (ROActivo); * Check output active 
GOIO [ROE rameStart, AI.U//oj, LU <- (RState) Aid) (RPActive); * Chock poller active 
DBIGOfO [ HPo 11 e rS tai t, RNoneAct ive , ALU//0], Kle.i>p2 *• AiJU0[RI Id le f iinerl o , 37 / ]C ; 
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SET TASK[RFTask]; 

ON PAGE[RFPage]; 

* Poller. Updates ToDCE hits and checks FromDCE bits notifying the u 

* change. Also, handles commands 

llPol lorStart: T <■ (RPtrCSB) + ( RlndcxToDCF.); 

CALL [RRTask], PFetch2[RBasoPngeO, RPToDCE]; 

* Process commands 

SRPCmdDisp[RPToDCE]; 

D1SP[RPNopj; 

* Commands 

* 0 - Command proccasscd 

* 1 = Nop 

* 2 = Reset 

* 3 = startReceiver 

* 4 = startTransmitter 

* 5 = Stop Receiver 

* 6 - Stop Transmitter 

* 7 = Send Break 

* 10 = Set Parameter 

* 11 - Clear Ring Indicator 

* 12 ••= Clear break detected 

* 13 = Clear Data Lost 

* Command = 0 => Command processed 

* Don't even clear out command field 

IIP Nop : GOTO [RPCmdEl], 

* Command = 1 => NOP 

* Clear out command field 

GOTO [RPCmdE], 

* Command = 2 = > Reset 

* NOP for now 

GOTO [RPCmdE], 

* Command - 3 = > Start Receiver 

* Start receiver timers atul sot input state to waiting for synchroniz 

RISyncTimer *■ AND@[RISyncTimerLo , 177400]C , 

RISyncTimer «- (RISyncTimer) OR (AND@[RISyncTimerl..o, 3 1 7 ]C ) ; 
LOADTIMF.Rf RI SyncT ime r] ; 

111ICount 2 1C; 

T <- (RPtrCSB) * (RIndexBCCIn); 

R remp2 «- (ZERO) - 1;- 
PStorolfnilasePageO, RTomp2] ; 

GOTO [RPCmdE], RState <- (RState) AND NOT (RIBStateMask); 

* Command - 4 => Start transmitter 

* Set transmitter timers and set output state to sending idle 

T <- (RPtrCSB) 1 (RlndexCharOut) , 

RTemp2 <-■ 100000C; 

PS to rel[RBasoPageO, RTomp2]; 

ROSyncTimcr *- AND@[ROSyncTimorLo,177400]C; 

ROSyncTimer <- ( ROSyncTimo r) OR (AND@[ROSyncT ime rLo , 377 ]C) ; 
LOAD TIMER [ROSyncTimer]; 

RState <• ( RStaLe) AND NOT (ROBStatcMask) ; 

ROlCount ♦ ac; 

I r (RPtrCSB) 1 (RIndcxBCCOut); 

RIemp2 r (ZERO) - 1; 

PStorel[RBasePageO, RTemp2’|; 

GOTO [RPCmdE], ROData <- 200C; 

* Command = 5 => Stop receiver 

* Set idle timer 

RTemp2 <- AND@[RIIdleTimerl.o,17 7400]C, 

RTenip2 «- (RTomp2) OR (AND@[ RIIdleT imerLo , 3 7 7 ] C); 

GOTO [RPCmdE], LOADTIMER[RTemp2]; 

* Command = 6 => Stop transmitter and idle line 

* Sot short timer and sat line to 1 

RTemp2 «- ANDS[ ROSho rtT Ime rLo , 17 7400]C, 

RTemp2 <- (RTeinp2) OR (AND®[ ROSho rtT ime rLo , 37 7]C); 

RStackSave <- pRSIinage; 

T <- (Ge tRSpec[ 103 |) XOR (377C); 

RStackSave +• T, stKP «- RStackSave, NoRegILockOK; 

T <- Stack < (Slack) OR (1C); 

RS232 <- T; 

LOADTIHERf RT emp2]; 

STKP «- RStackSave; 

RState r (RState) AND NOT (ROBStateMask); 

GOTO [RPCmdE], RState «- (RState) + (R0BStatelncr3); 

* Command = 7 => Send Break 

* U 11 implemented 

GOTO [RPCmdE], 

* Command = 10 => Set Parameters 

* NO PARAMETERS YET! 


ser when tho bits 


AT [RPCmdLoc,0]; 


AT [RPCmdLoc,!]; 


AT [RPCmdLoc,2]; 
a t i on 

A I [RPCmdLoc,3]; 


AT [RPCmdLoc,4]; 


AT [RPCmdLoc,5]; 


AT [RPCmdLoc,6]; 


AT [RPCmdLoc,7]; 
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GOTO [RPCrodF], AT [RPCrndLoc,10]; 

* Command = 11 => Clear Ring Indicator 

GOTO [RPCindE], RPFromDCE «• (RPFromDCE) AND NOT (RFromDCERing), AT [ RPCrndLoc , 11] ; 

* Command = 1.1 => Clear Ring Indicator 

GOTO [RPCindE j, RPFromDCE «- (RPFromDCE) AND NOT ( R F romDC E 0 re a k), A T [RPCrndLoc , 12] ; 

* Command = 11 -> Clear Ring Indicator 

GOTO [RPCindE], RPFromDCE <- (RPFromDCE) AND MOT (RFromDCELost), AT [RPCrndLoc, 13]; 

* Clear command field if not already cleared 

RPCmdF: RPToDCE (RPToDCE) AMD ( 377C); 

T <■ (RPlrCSB) + (RTndoxToDCE), TASK; 

PStorol[RHasePagnO, RPToDCE]; 

* Sot ToDCE bits 

RPCmdEl: RStackSave <- pRSTmage; 

T <- (GotRSpoc[ 103]) X0I1 (37/C); 

RStackSave <- T, STKP <- RStackSave, NoltegtLockOK; 

I <- (RPToDCE) OR NOT (RToDCEMask) ; 

Stack <- (Stack) AND NOT (RToDCEMask); 

T < (Stack) <- (Stack) OR HOT (T); 

RS232 <• T, TASK; 

STKP *■ RStackSave; 

* Check FromDCE bits and post user if they have changed. Note that the bits are negative 

* logic. Also, RPNow will! contain any non-hardware bits that have to ho set (like 

* DataLost, AbortDetec ted). 

T < (RS232) OR NOT (RfromDCEMask); * Get FromDCE.bits 

RPNew «- (RPNow) OR HOI ( T); 

r * (RPFromDCE) AMD NOT (RNotLatchedMask); » Save ON latliced bits 
RPNow <■ (RPNow) OR (1); 

T «- (RPtrCSU) i ( RI n do x F romDC E), TASK; * Store new F romDC E bits; 

PS to rel[RBasePagoO, RPMew]; 

T <- RPFi'omDCE; * Get old FromDCE bits 

I.U <• (RPNow) XOR (T); * Compare to now FromDCE bits 

GOTO [RNoDCEChange, ALU-0], T <- (RPtrCSB) > (RXndcxMask); 

NOP; 

CALL [RPost], PFe t chi [ RBasePageO, RTeinp2] ; 

RNoDCEChange: RPNow' «• 0C ; 

GOTO [RChkAct ive], RState <- (RState) AND NOT (RPActive); 
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SET TASK[RFTask]; 

ON PAGE[RFPage]; 

* Input charactei' received. Load registers. 

RIFramestart: CALL [RGetPtrlOCB], T *■ (RPtrCSB) + (RlndoxIOCBIn); 
liFState <- (RFStato) OR (RFStateluput); 

CALL [RGetPtrs], UseCTask; 

* Dispatch on input event. Test state of input line 

* Events are: 

* 0 = character received 

* 1 = ABftf received 

* 2 = FLAG received {end of frame) 

*3 = 1 ine returned to idle state (more than 17 ones in a row) 

DBLGOTO [ RtDatal.ost, RTStoreChar, ALU-0], $RlEvcn tDi sp[ RData] ; 

RTStoreChar: DISP[.+1]; 

* Character received, store it in IOCQ 

T <•• (RRColint) <■ ( RRCount) + 1, AT [R iF ramel-oc, 0]; 

LU <- (RMaxCount) - T; 

GOTO [ ItlBufSpace, AUJ> = 0] , LU <- (RCoiimiand) AND (RCmdEnd); 

R113 11 fFu 11 : GOTO [RTMustEnd, AI.U//0], RRCount <- (RRCount) - 1; 

NOP; 

CALL [RDonelOCD ]; 

DBLGOTO [ lUDalaLos t, RTStoreChar, ALU-0], $RIEveil tDi sp[ RData] ; 

RTMustEnd: CALL [RSotStatus], RTemp2 < RStatLost; 

GOTO [RIDoBCC ]; 

* Room in buffer. Store character in buffer. This is slightly complicated due to the 

* fact that vie are storing a byte rather than a word. ROffse1 1 RRCount gives the byte 

* offset into the buffer. Update 13CC. 

RIBurSpace: ROffSot «- (ROffSet) + T; 

HO if Set <- (ROffSot) - 1; 

GOTO [RIStorcFven , R EVEN], T <- RSH[ROf fSet, 1] ; 

PFctchl [ fil3ufliaso, RlempZ]; 

T <- RIIMASKl RData ], TASK; 

RTemp2 *- (IdIMASKf RTeinpZ j ) OR T; 

GOTO [R[DoStoro]; 

RXStoreLven: T <- LSII[RData, 10]: 

RTemp2 <- T; 

RID 0 SL 0 re: T RSII[ROf fSet, 1 ] , TASK; 

PS to rel[ HBu (Base, RTeinp2]; 

GOTO [RIDoBCCj; 

* ABRT received, end frame and signal error 

GOTO [UTAborted], RTomp2 *■ RStatBadFrame, AT [KIFrameLoc,1]; 

RfAboitcd: CALL [RSetStatus]; 

R1Indframo: NOP; 

CALL]RDonelOCB]; 

SKIPON [ALU-0], LU <■• (RCoinmand) AMD (RCmdStart); 

DBLGOTO [RTEndF ramo, RINoSavel, AFU 0]; 

GOTO [RINoSave]; 

RINoSavel: GOTO [RINoSave]; 

* FLAG received. Check BCC and end of frame. 

RI3CC <-■ (RBCC ) (AMDB[RBCCRemainder, 177400]C), AT [ RTF rameLoc , 2] ; 

RBCC <- (RBCC) - (AND@[ RBCCRema i nder, 37 7]C ); 

SKIPON [ALU-0] , RBCC <- (ZERO) - 1; 

GOTO [RTAborted], RToinp2 <- RStatBCCErr; 

GOTO [RTEndFramej; 

* Idle line, Toll the user 

GOTO [RIAborted], RTemp2 <- RStatBadF rame , AT [RIF rameLoc , 3]; 

* End of frame work 

REDonCC; CALL [RDoBCC]; 

RIFinish: CAIL [RSavoIOCB]; 

RINoSave: CALL [RSaveCSB], T <- (RPtrCSB) + (RIndex IOCBI 11 ) ; 

GOTO [RChkActive], RState <- (RState) AND NOT (RIActive); 

* Data arrived and no IOCB on chain. Signal Data Lost. 

RIDataLost: GOTO [RINoSave], RPNew (RPNew) OR (RFromDCELost); 
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SET TASK [RFTask]; 

ON PAGE [RFPago]; 

* Software USRf needs another character. Load registers 

ROF ramcStart: CALL [RGetPtrlOCB], T «- (RPtrCSB) + ( RIndoxI0010t.it); 
CALL [RGetPtrs], UseCTask; 

* Dispatch on output state. 

* States are 

* 0 - > Sent a character/opening Mag 

* 1 = > Sent BCCl 

* 2 = > Sent BCC2 

* 3 = > Sent closing/opening flag 

RODispatch: $RFStateDisp[RFStato]; 

OISP[.M], T RRCount <- (RRCount) - 1; 

* A character has been sent, see if any more characters in buffer. 

* ff nothing in buffer, check EndFrame bit arid if set, end the frame. 

ROChockCount: GOTO [ROGotChar, ALU>=0], LU <- (RCommand) AND (RCindEnd) 
GOTO [ROEndFramo, AL1J//0], RRCount *- (RRCount) *■ 1; 

RONcxtIOCB: NOP; 

CALL [RDonoIOCB]; 

GOTO [RODispatch]; 

* Got character, send it. Again, things are slightly complicated by 

* are sending a byte rather than a word. 

ROGotChar: T «- (RMaxCount) - T; 

ROffSet <- (ROffSet) + T; 

ROffSet < (ROffSet) - 1; 

T < RSII[ ROffSet, 1] , TASK; 

PFetclil| Hliiif Base, RData]; 

GOTO [ROSendOdd, R ODD], LU < ROffSet; 

ROSendEven: GOTO [RODoBCC], RData <- RSII[RData, 10]; 

ROSendOdd: GOTO [RODoBCC], RData *- RIIMASKf RData]; 

* End of frame, send first UCC character 

ROEndFrame: T <- HHMASK[RBCC] ; 

ROSendBCC: RData (ZERO) OR NOT (T); 

RData <- RIIMASK) RData] ; 

ROlnc rFraino: GOTO [ROF ini sh] , RFState * (RFState) 1 (RFS t a telnc r); 

* Send second BCC character 

T <- RSII[ RBCC , 10] , 

GOTO [ROSondRCC], RBCC <- (ZERO) -• 1; 

* Send a closing flag 

GOTO [HOIncrFrame], RData < 100000C, 

* Just sent closing flag, mark IOCB complete and advance to next IOCB 

GOTO [RONcxtIOCB] , RFState <- (RFState) - (RFStatelncr3), 

* Finish up with character by doing BCC calculation. 

* Save registers in IOCB 

* Save registers in CSB 

* Check for more work 

RODoDCC: CALL [RDoBCC]; 

ROFinish: CALL [RSavelOCB]; 

RONoSave: CALI. [RSaveCSfi], f (RPtrCSB) + (RlndexlOCBOut) ; 

GOTO [RChkActive], RState < (RState) AND NOT (ROActive); 


AT [ROFramcLoc,0]; 


the fact that wo 


Af [ROFrameloc,1]; 


AT [ROF rameLoc, 2 ]; 


AT [ROFramcLoc,3]; 
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SET TASK[RFTask]; 

ONPAGEf RFPage'j; 

* Finish off ICO buffer 

RDonelOCB: UscCTask; 

T <- APC&APCTask, TASK; 

HSavo <- T; 

RDonelOCBl:LU <- (RComp) AND (RCmpS talus); 

•SKIP 0N [ AI..U//0] ; 

RComp (RComp) + (RStatOk); 

CALL [RSavoIOCB], RComp <- (RComp) OR (RCmpP roc); 

CALL [RNextIOCB], T *■ (RPtrlOCB) + (RIndoxMoxt); 

T <- ( RCommand) AND (OR<?[RCmdWakeAll ! , RCmdWakeE rr! ]C ); 

LU *■ (RCoinp) AND T; 

GOTO [RGetlOCB, ALU-0], T <- (RPtrCSO) + (RIndexMask); 

NOP; 

CALL [RPost], PFetchl[RBascPageO, RTemp?.]; 

GOTO [RGetlOCB]; 

* Get buffer pointers. 

RGetPt rIOCB: RETURN, PFetch4[RBasePageO,RPtrlOCB]; 

RGetPtrs: T «- APC&APCTask; 

RSave <- T; 

RGetlOCB: T <- RPtrlOCB; 

GOTO [RNoIOCB, ALU = 0i; 

CALL [RRTask] , PFotch4[RBasePagcO , RBul’Base 1; 
r *- (RPtrlOCB) i ( RTndoxCoun t) ; 

CALL [RFixBaseReg |, PFe tch4[RBasoPageO,RRCoun t]; 

GOTO [RSubRetum]; 

* What to do if we don't Itave an IOCB! 

* On input, signal data lost (NOT IMPLEMENTED YET) 

* On output, send a flag 

RNoIOCB: OBI GOTO[ R INoIOCB, RONoIOCB, R ODD], LU <• RFState; 

RINoIOCB: GOTO [RSuhReturn]; 

RoNo IOCB: GOTO [RONoSave], RData <- 100000C; 
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SF.T TASK[RFTask]; 

ONPAG E[RFPnge]; 

* Aeciinuil a to BCC 

RDoDCC: UseCTask; 

T APC&APCTask, TASK; 

RSavo <- T; 

T <- (RPtrCSB) + (RIndexBCCTable); 

CALL [RFIxBaseRog], PFotch2[RBasePageO, RBtifBase]; 
T <- RData; 

T *• ( RMMASK[ RBCC]) XOR ( F) , TASK; 
PFetchl[RBufBuso,RTemp2]; 

T <• (RTemp2) ; 

RBCC <• (RSI I [ RBCC , 10 j) XOR T; 

RSubReturn: APC&APCTask *• RSavo; 

RRTask: RETURN, l.U <- RPtrlOCB; 
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SF.T TASK) RFTask]; 

ONPAGEfRFPage]; 

* Fix up base register 

RFIxBaseReg: T (LSII[RBufUasel.o, 10]) + 1; 

RETURN, RBufBasol.o <• (RBufBaseLo) OR (T); 


* Sot completion status 

RSetStatus: EU <- (RComp) AMO (RCmpStatus); 

GOTO [RRTask, ALU//0], T «- (RTemp2) OR (RCmpError); 
RETURN, RComp <• (RComp) OR ( I); 


* Save COCB ptrs 

RSavelOCB : T (RPtrlOCB) + (RliidexCoun t); 

RETURN, PStore4[RBasePageO, RRCount]; 


* Save CSB ptrs 

RSaveCSB: PFetchl[RBasoPagoO, RPtrlOCB); 

EIJ <■ RPtrlOCB; 

RETURN, PStore4[ RBasoPago0, RPtrlOCB]; 


* Point to next IOCB 

RNexlIOCB: PFctchlfRBasePageO, RNext]; 

OBI GOTO[ . +1, . i 2 , R OOD ), LU <- RFState; 

GOTO [.+2], T <• (RPlrCSB) + (R tiidexIOCBIn); 
GOTO |. H], r <- (RPtiCSB) -t (RlmioxIOCBOut); 
l-U <- RNext; 

PSto re1[RBasePageO,RNext]; 

1 <- RNext; 

RETURN, RPtrlOCB *- T; 


RPost: RStackSavo «- pNWW; 

T *- (GetRSpec[ 103 ]) XOR (377C); * road stkp 
STKP «- RStackSavo, RSlackSave <- T, NoRegILockOK; 
1 <■ RTemp2; 

Stack <- (Stack) OR (T); 

IITunip2 <- p RSI mage; 

STKP <• RToinp2; 

I <- Stack *- (Stack) OR (IOC) ; 

RS232 «- T; 

RE TURN, STKP <- RSlackSave; 


END; 
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Par |0 1 


* Last modi f iod by DRD oil Juno 1, 1979 12:13 PH 

* Version 3.0 

inse rt[RS232Bit]; 
insert[f!S232Tes t j; 

END; 
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inse rt[d01nng]; 

NOMIDASINIT; LANGVERSION; 

TITLE [RS232By to]; 

* DO microcode for byte synchronous 

* Last modified by BRD on August 28, 1979 1:09 PM fix GlobalOefs confillcts 

* modified hy BHD on Juno 1, 1979 12:11 PM 

inse rt[G1oba1Defs] ; 
insort[RS232DefsJ: 

* This microcode uses a timer to simulate a hardv/are wakeup for the frame task. It uses 

* Task 4 for the frame task, and task 6 for the bit task 

SET TASK [RBTask]; 

ONPAGE [RBPage]; 

* Wakeup occurred on input timer 

RlWake: $RIBitDisp[RState], AT [RlWakel.oc]; 

IHSP[ RlWai tSyn |, r (RS232 ) AND (RI232Data); 

* Waiting for first sync character. Shift in a bit and compare last 8 bits to 

* SYN character. If a match, we are in sync. 

RlWaitSyn: RIData <- (RSII[ RIDa ta, 1]) OR (T), AT [RIB i tl.oc, 0] ; 

T «- RIIMASK[RIData ]; 

IU - (RSyncChar) 1 (T); 

GOTO | RtSotTimer, ALIJ//0]; 

GOTO [RINextChar], RState <- (RState) + (RIBStatelncr); 

* Data bit in. Shift into partially assembled character. If end of character, justify 

* character and chock if parity bit coming 

RIShiftBit: RState <- (RState) XOR (T), AT [RIBitLoc,I ]: 

S KIP 0 N [ R ODD], RIData «- ( RSII[RIDa ta, 1] ) OR (T) ; 

GOTO |RISotTimerj; 

$li I Jus tD i sp[ RDa taMas k] ; 

DISP [RIJustify]; 

RIJustify: GOTO [RIChkPar], RIData <- RSH[RIData,3], AT [RIJustLoc,0]; 

GOIO [RIChkPar], RIData <- RSII[ RIData, 2], AT [ RIJust Loc , 1 ] ; 

GOTO [RIChkPar] , RIData <- RSII[ RIData, 1 j, AT [ RIJust Loc , 2 [; 

RIChkPar: LU <- (RDataMask) AND ( RMaskPa r i t y) , AT [ R IJiis t Loc, 3]; 

GOTO [RlTurnOn, ALU-0], RState <- (RState) + (RIBStatelncr); 

GOTO [RISetT imer]; 

* Chock parity is enabled 

RI Pa city: RState <- (RState) XOR (T), AT [RIB i tLoc, 2]; 

$HPai‘i t.yf) i sp[ RDataMask] ; 

DISP [RIParNone], RBTempl <■ T; 

RrParNone: GOTO [RlfurnOn], RStato <- (RState) + (RIBStatelncr), AT [RIParLoc,0]; 

RIParOdd: GOTO [RIParChkj. LU <- LDF[RSta to, RIParityBit, 1], AT [RIParLoc,tJ; 

RI Pa rf veil : GOTO [RIParChkj, IIJ <• (I Dl[ RState , RIParityBit, ij) - 1, AT [ R [Pa rl oc , 2] ; 

RIParOno: 0010 [RIParChk], LU < LDF[RBTemp1, RIParityBit, t], AT [RIParLoc,3]; 

RIParZero: GOTO [RIParChk], LU < (LDF[ RH Temp t, RIparitylVit, 1]) - t, AT [ RIParLoc, 4] ; 

RIparChk: GOIO [RIParDone, ALU/70]; 

RIData <- (RIData) OR (RIDataParityErr); 

RIParDone: GOTO [RlTurnOn]; 

* Notify frame task that input has work 

RlTurnOn: SKIPON [R<0], RState «- (RState) OR (0R@[RIAct i ve ! , RXAct i vo!]C); 

LOAD riMCR[RT ramoTime rl]; 

RState <- (RState) - (RIBStatelncr); 

T (RPlrCSB) + (RlndexCharln) ; 

PSto re t[RDasePageO, RIData]; 

RINoxtChar: T <- (RDataMask) AND (RDataSizeMask); 

RIData <- T; 

RISetTimer: GOTO [RTimerReturnJ, LOADTIMER[RISyncTimer]; 
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SET TASK[RBTask]; 

ONPAGE [HBPago]; 

* Timer wakeup occurred on output. 

ROWake: RStackSavo <- pRSImago, AT [ROWakeloc’J; 

T <■ (Gol.RSpec[ 103 |) XOR ( 377C) ; 

RStackSavo <- T, STKP *- RStackSavo, NoRcgILockOK; 
$ROBitDisp[RStato]; 

DISP[ROIdlo'|, T <- Stack «- (Stack) AND (376C); 


* Idle output state. 

ROIdlo: GOTO [ROSendBi t J, T <- Stack <• (Stack) OR (1C), AT [ROB i tl-oc, 0]; 

* Get next input character. Notify frame code. 

* If wo have a character, solid it. If no character to ho sent, idle tine 

ROStart: SKIPON [R<0], RState <- (RState) OR (OR0[ ROAc t i vc ! , RXAc t i ve ! |C), AT [ ROD 1 tL.oc , 1 j ; 

I.OADT 1MF.R[ Rf rainoTimerl ); 

T <- (RPtrCSB) 1 (RlndexCharOut); 

PFetchl[RBasoPagoO, ROData]; 

T <- (RDataMask) AND (RDataS izeMask); 

SKIPON [R>-0] , ROData <- ( LS!l[ROData , 10 ] ) OR (T); 

GOTO [ROId lo j, RStato < (RState) -- (ROBStatolncr) ; 

GOTO [ROScndChar], RStato *■ (RState) + (ROBStatolncr); 

* Send data bit 

ROSendChar: T <• U)l[ROData, 7,1], A T [ROB i tLoc, 2 j; 

RState *• (RState) XOR (T) ; 

T *- Stack *■ (Stack) OR (T); 

ROSendBi t: RS232 <- I; 

DBIGOTO [RONoxtStato, ROSetfimer, R ODD], ROData <- RSH[ROData,11; 

RONextSlate: RStato < (RState) + (ROBStutelncr); 

ROSet l ime r : LOAD !IMF R| ROSyncT ime r] ; 

ROSlackRoset: GOTO [Ilf iincrReturn] , STKP «- RStackSavo; 

* Send parity hit if parity set 

ROParity: $RPa rityDisp[RDataMask], 

DISP [ ROPa rNone] , RState ♦- (RStato) - ( ROBSI. ntoliic r2) ; 

ROParNono: GOTO [ROStart], 

ROParOdd: GOIO [ ROPa rEveii] , RState «- (RState) XOR ( ROPar i tyMask), 

ROPa rEveii: GOTO | ROPa rSend], T <- LDF [ RStato. ROParilyBit, 1], 

ROPa rOne: GOTO [ROParSend], T «■ 1C, ' 

ROParZero: GOTO [ROParSend], T <- 0C, 

ROParSend: T <- Stack < (Stack) OR (T); 

GOTO [ItOSetT imer], RS232 «- T; 

* State used by poller to stop transmitter. 

GOTO [ROStackRoset], Stack <- (Stack) OR (tC), Al [ ROB i t l.oc, 4]; 


AT [ ROB itLoc , 3 J ; 

AT [RORart or., 0]; 
AT [ROParloc, 1"|; 
AT [ROParloc,2]; 
AT [ROParloc,3]; 
AT [ROParloc,4]; 
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SET TASK[RBTas k]; 

ONPAGE [RFPago]; 

* Notify frame task that polior has work 

RPTurnon: SKXPON [RCO], RState <- (RState) OR (OR0[RPActivel , RXAct ivo!]C), AT [RPWakeLoc]; 

LOADTiMER[RF ramoTime rl'J ; 

RTIntorReturii : NOP; 

RETURN; 



rs232Byte. me 


3-Nov-79 19:16:53 


Page 4 


SET TASK[RFTask]; 

ONPAGE [RFPago]; 

* Frame dispatch code 

* The frame code works in the following way: 

* Whenever the input bit code, output hit code, or poller code has some work for the 

* frame task to perforin, it set the appropriate bit in RState indicating work has to 

n ' bo done (RIActive, ROActivo, or RPActive) and then if the frame code is not currently 

* running (RXActivo indicates frame code running), it sets RXActivo and loads RFrameTimorl 

* with a short timer. When this tinier expires, control is passed to the following 

* instructions. They simply do a RETURN with UsoCTask sot. to return to the last place 

* the frame code did a TASK. In addition, they reload the timer, so that after the next 

* TASK, the frame code will again get control. The frame code can then run as though it 

* were a normal task doing RETURNS to give control to others. When it has finished 

* processing, it check the RIActive, ROActivo, and RPActive bits in RState to see if 

* more work needs to be done. If not, it clears RXActivo and idles the frame timer. 

UseCTask, AT [RFWnkel.oc]; 

RETURN, LOADTIMER[RFrameTimert] ; 

* (Tie following code is used to initially set registers and the TPC for the frame task. 

SET TASK[0 ]; 

r <- RO, AT[RS2 32S t a rtLoe] ; » Notify task 0 at RS232Startl 

RO <- SRSetDi spl.o[ RFTask, RS232StartLocl]; 

RO <■ (RO) OR ($RSetD isplli[RFTask, RS232Starl.Loct]); 

APC&APCTask <■ RO; 

RETURN, RO <- T; * Restore RO 

SET TASK[RFTask]; 

RFrameTimerl <- AND0f RFSho rt Time rLo, 377 *|C , Af f RS232Sta rt Loc l] ; 

RFrameTimerl *- (RFrameTimerl) OR (ANDQ[ RFSho rt Time rlo , 17 7400 jc); 
lillasePageO <- 0C; 

RBasePageOLo <- 0C; 

RState <■ 0C; 

RPtrCSB <- AND@[ RS232CSB1.0C , 3 77 ]C ; 

GOTO [RClikActivc"l, RPtrCSB < (RPtrCSB) OR (ANDI?[RS232CSBl.oc, 177400]C) ; 

* Chocks to see iF any part of RS232 code desires service. If so, it is branched to. 

* If not, tho framo timer is turned off to kill the f raino wakeups. 

RNoneAct i ve; RTemp2 * (RTornp2) OR (AND@[ RF Idl eT iiae rlo , 17 7400]C ); 

1.0ADT IMER[ RTemp2] ; 

NOP, TASK; 

RState < (RState) AND NOT (RAct ivoMask); 

RClikActivo: LU «- (RState) AMD (RIActive); * Check input active 

GOTO [RIFrnmoStart, ALU//0'|, LU (RState) AND (ROActivo); * Check output active 
GO 10 [ROT rameSta rt, ALU//0], LU *- (RState) AND (RPActive); * Check poller active 
DBI GOTO [RPo I lerSLart, RNoneAct ivc, ALU//0], Hlemp2 < AND@[RTI die I imerl.o, 37 7 JC ; 
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SET TASKfRFTask]; 

ON PAGE[RFPage] ; 

* Poller. Updates ToDCE bits and checks FromDCF. bits notifying the u 

* change. Also, handles commands 

tlPollorStart: T <- (RPtrCSB) + (RIndexToDCE); 

CALL [RRTask ], PFe tch2 [ RBasePagoO , RPToDCE]; 

* Process commands 

$RPCmdD ispf RPToDCF.]; 

DISP[RPNop]; 

* Commands 

" 0 = Command pi'occossed 

* 1 = Nop 

* 2 - Reset 

* 3 = startRoceivor 

* 4 = startTransmittcr 

* 6 = Stop Receiver 

* 6 = Stop Transmitter 

* 1 = Send Break 

* 10 = Set Parameter 

* 11 = Clear Ring Indicator 

* 12 = Clear break detected 

* 13 = Clear Data Lost 

* Command = 0 = > Command processed 

* Don't oven clear out command field 

IIP Nop : GOTO [RPCmdEl], 

* Command = 1 => NOP 

* Clear out command field 

GOTO [RPCmdF.], 

* Command = 2 ~> Reset 

* NOP for now 

GOTO [RPCmdE], 

* Command = 3 *> Start Receiver 

* Start receiver timers and set input state to waiting for synchroniz 

RISyncTimer <- AND@[RISyncTimerl.o, 177400]C, 

RISyncTimer «- (RISyncT into r) OR (AND0[RISyncT imerl.o, 37 / JC ); 
LOADTIMERf RISyncTime r]; 

GOTO [RPCmdE], RState <- (RState) AND NOT (111 (IS ta teMask); 

* Command = 4 => Start transmitter 

* Set transmitter timers and set output state to sending idle 

T «- (RPtrCSB) <■ ( RlndexCharOut) , 

RTemp2 * IOOOOOC; 

PSto rel[RBasePageO, RTemp2]; 

ROSyncTimer < AND0[ROSyncTimerLo,177400]C; 

ROSyncTimer < (ROSyncTimer) OR (AND@[ROSyncTimerLo,377]C); 
LOADTIMER [ROSyncTimer]; 

RState «-• (RState) AMD NOT (ROBStateMask); 

GOTO [RPCmdE], ROData <- 2 00C; 

* Command = 6 => Stop receiver 

* Set idle timer 

RTemp2 «- AND@[RIIdleTimerl.o , :L77400]C , 

RTemp2 <- (RTemp2) OR (AND@[ Rlld 1 e T imerLo , 37 7]C ); 

GOTO [RPCmdE], LOAD TIMER[RT emp2]; 

* Command = 6 => Stop transmitter and idle line 

* Set short timer and set line to 1 

RTemp2 <- AND©| ROShortTimerLo, 17 7400]C, 

RTempZ <- (RTemp2) OR (AND@[ROShortTimorLo,377]C); 

RStackSave <- pRSImage; 

T «- (GetRSpec[ 103] ) XOR (377C); 

RStackSave «- T, STKP <- RStackSave, NoRegILockOK; 

T «- Stack <- (Stack) OR (1C); 

RS232 <• T; 

STKP <- RStackSave: 

L0ADTIMER[RTemp2]; 

RState (RState) AND NOT (ROBStateMask); 

GOTO [RPCmdE], RState *- (RState) + (R0BStateIncr4); 

* Command = 7 -> Send Break 

* Unimplemented 

GOTO [RPCmdE], 

* Command = 10 => Sot Parameters 

* Load registers from DO memory 

T <- (RPtrCSB) + (RlndexParm), 

CALL [RF ixBaseReg], PFetch2[RBasePageO, RBufBase]; 

PFetchlfRBufBase, RDataMask,6]; 

GOTO [RPCmdE], PFetchl[RBufBasc, RSyncChar,7]; 

* Command = 11 => Clear Ring Indicator 


ser vdien the bits 


AT [RPCmdLoc,0]; 


AT [RPCmdLoc,!]; 


AT [RPCmdLoc,2]; 
at ion 

AT [RPCmdLoc ,3]; 


AT [RPCmdLoc,4]; 


AT [RPCmdLoc,5]; 


AT [RPCmdLoc,6]; 


AT [RPCmdLoc,7]; 


AT [RPCmdLoc,10]; 
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GOTO [RPCmdE], RPF romDCF. (RPF romDCE) AND NOT (RFromDCER irig), AT [RPCmdLoc.ll]; 

* Command - 11 => Clear Ring Indicator 

GOTO [RPCmdE], RPF romDCF. <- ( RPF romDCE) AND NOT ( UFromDCFB renk), AT [RPCmdl.oc, 12] ; 

* Command = 11 => Clear Ring Indicator 

GOTO [RPCmdE], RPF romDCE <• (RPF romDCE) AND NOT ( RFromDCELos t), AT [RPCmdl.oc , 13] ; 

* Clear command field if not already cleared 

RPCmdE: RPToDCE <- (RPToDCE) AND (37/C); 

T «• (RPtrCSB) ^ (RIndexToDCE), TASK; 

PStorel[RBasePageO, RPToDCE]; 

* Set ToDCE bits 

RPCmdF.t: RStackSave <- pRSImage; 

T <- (GetRSpec[ 103]) XOR (377C); 

RStackSavo <- T, STKP *- RStackSave, NoRegll.ockOK; 

T «- (RPToDCE) OR NOT (RToDCEMask) ; 

Stack *- (Stack) AND NOT (RToDCEMask); 

I <• (Stack) f (Stack) OR NOT (T); 

IIS232 <- T, TASK; 

STKP « RStackSave; 

* Check FromDCE bits and post user if they have changed. Note that the bits.are negative 

* logic. Also, RPNow will! contain any non-hardwaro hits that have to be set (like 

* DataLost, BrcakDetectod). 

r < (RS232) OR NOT (RFromDCEMask); * Got FromDCE hits 

RPNow «- (RPNow) OR NOT (T); 

T <- ( RPTromDCE) AND NOT ( RNo tl.a t died Mask) ; * Save ON latticed hits 
RPNew «- (RPNow) OR (T); 

I <- (RPtrCSB) +■ (lUndexF romDCE) , TASK; * Store now F romDCE hits; 

PStorel[RBasePagcO, RPNew]; 

T <- RPFromDCE; * Get old FromDCE hits 

LU «• (RPNew) XOR (T); * Compare to now FromDCF. bits 

GOTO [RNoDCEChangc, ALU = 0], T (RPtrCSB) ^ (RIndexMask); 

LoadPage[RBPage]; 

CALL [RPost], PIetchlfRBasePageO,RTomp2]; 

RNoDCEChange; RPNew <- OC; 

GOTO [RChkAct ive]. RState «- (RState) AND NOT (RPActive); 
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SET TASK[RFTask]; 

ON PAGE[RFPage]; 

* Input event, have received a character. Dispatch on input event. 

* Events are: 

* 0 => Received a good character. Store it in I0CB buffer. 

* 1 => Received break. HOT IMPLEMENTED YET. 

* 2 => Received character with parity error. Set error and store character in TOCO. 

* 3 -> Received character with framoing error. Set error and store character in I0CD. 


lUFramoStart: CALL [RGotPtrlOCB], T <•• (RPtrCSR) + (RIudexIOCDIn); 
RFState <- (RFState) OR (RFStatolnput); 

CALL [RGetPtrs], UseCTask; 

GOTO [RIDataLost, ALU=0],$RIEventUisp[RData]; 

DTSP[.il], RTemp2 <- RStatFrameErr; 


GOTO [RIStoreChar] , 

GOTO [RIFinish], 

RTemp2 <- RStatPar ityErr, 
NOP, 

CALL [RSctStatUs]; 


AT [RIEventLoc,0]; 

AI [R [Even tl.oc , 1] ; 

AT [RIEventLoc, 2]; 
AT [RIEventLoc,3]; 


* Character received, store it in buffer. If not enough room in buffer, advance to next 

* IOCI! unless RCmdfnd set in which case set DATALOST and wait for frame to end. 

* If the current state is zero, chock if SYN characther and throw away if so. 


RIStoreChar: $RFStateDisp[RFState]; 

DtSP[. + lj, T «- RSyncChar; 

GOTO [RlCheckSyn], LU <- (RData) - T, 

GOTO [R[HoCliock 1, T <- RRCOunt *- (RRCount) + I, 

GOTO [RTNoClieck], T <- RRCount <- (RRCount) + 1, 

GOTO [RlCheckSyn], LU <- (RData) - T, 

ItIClieckSyn: GOTO [HIMoChock, ALU//0J, T <- (RRCount) <- (RRCount) + 1; 
GOTO [RINoSave ]; 

RINoChcck: LU <- (RMaxCount) - T; 

GOTO [RIBufSpace, ALU>=0|, LU <- (RCommand) AND (RCmdEnd); 
RTBufFu'IT: GOTO [RTMust End ,' ALU//0 |, RRCount «- (RRCount) - 1; 

NOP; 

CALL [ROoneTOCB]; 

GOTO [RIStoreChar]; 

RI Mu st End : CALL [RSctStatus], RTcmp2 <- RStatLost; 

GOTO [RIEndl rame |; 


AT [RISynLoc,0] 
Af [RISynLoc,1] 
AT [RISynl.oc, 2] 
Af (RISynl.oc, 3] 


Room in buffer. Store character in buffer. This is slightly complicated due to the 
fact that we are storing a byte rattier than a word. ROffsot i-RRCount gives the byte 
offset into the buffer. 


RIBufSpace: ROffSet <- (ROffSet) + T; 

ROff Set <■ (ItOflSot) - 1; 

GOTO [RIStnrcEven, R EVEN], T <- RSU[ROf fSet, l]; 

PFetch 1 [RBuIBaso, RTeinp2]; 

I <- RIIMASK[ RData |, TASK; 

RTemp2 <- (I IIMASK[ R t emp2 ]) OR T ; 

GOTO [RIDoStore |; 

RIS to ref von: T <- L Sll[ RDa t. a, 10] ; 

Riemp2 «- T; 

RIDoStore: T «- RSII[ ROff Set, 1] , TASK; 

PSto rel[RBufBase,RTemp2]; 

RIDoBCC: CALL [RDoBCCJ; 

* Now dispatch on frame state 

* States are: 

* 0 => just inputted a character, check if special case 

* 1 => just inputting first part of BCC, increment state 

* 2 => just inputted second half of BCC, check it and end frame 

* 3 => counting down to end of frame, if RFState<0 end the frame 

$RFStateD isp[RFState]; 

DISP[.H]; 

* State = 0. Normal state, check if special type of character. 

* Special typos are: 

* 0 => not special type. Do nothing. 

* 1 => BCC starts accumulating AFTER this character. Set RBCC <- 0 

* 2 => BCC received AFTER this character. Increment FStato to receiving BCC state. 

* 3 => Frame ends in n characters. Set FStatc to countdown to end of frame. 


$RICharD1sp[RTcmp2], 

DISP [.+1], RTemp2 <- (LDF[ RTemp2 ,16,2]) -1; 

GOTO [RIFinish], 

GOTO [RIFinish], RBCC <- 0C, 

GOTO [RIFinish], RFState *■ (RFState) + (RFStatelncr), 
T «- LSIi[RTomp2,14], 

RFState «- (RFState) + (RFStateIncr3); 

GOTO [RICheckEOF], RFState <- (RFState) OR (T); 

* State = 1. Inputting first half of BCC. Increment FState 


AT [RTframeLoc.O]; 

AT [RISpecLoc,0]; 

AT [RISpecLoc,1]; 

AT [RISpecLoc,2]; 

AT [RISpecLoc,3]; 


GOTO [RIFinish], RFState <- (RFState) + (RFStatelncr), AT [RIFramel.oc, 1]; 

* State = 2. Got second half of BCC. Check that accumulated BCC is equal to zero 

* and set BCC error if not. Then end the frame. 


LU «- RBCC, AT [RIFrameLoc,2]; 

GOTO [RIBCCOk, ALU=0]; 

NOP; 

CALL [RSetStatus], RTemp2 *■ RStatBCCErr; 

RIBCCOk: GOTO [RIEndFrame], RFState «- (RFState) - (RFStateIncr2); 
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* State=3. Ending frame after n characters. Decrement top part of RFState checking it 

* first to see if has gone negative. If it has, end of frame lias occurred, so reset 

* l-'State and end the frame. 

RICheckEOF: SKIPON [R<0], RFState <• (RFState) - (RFCountlncr), AT [RIFraflieLoc.3 |; 

GOTO [lUFinish]; 

RFState < (RFState) - (RFStatelncrS); 

RIEndFraine: RFState <- (RFState) AND NOT ( RFSta toCoun tB its ); 

CALI. [RDoncIOCB], RState *- (RState) AND NOT (RIBStateMask); 

SKIPON [ALU-0], I.U <- (RCommand) AND (RCmdStart); 

DOl.GOiO [RIEndFrame , RIFinish, AI.IJ-O]; 

GOTO [RINoSave]; 

* Save registers in IOCB 

* Save registers In CSB 

* Check for more 'work 

RIFinish: CALL [RSavelOCB]; 

RTHoSave: CALL [RSavoCSBJ, T <- (RPtrCSB) 1 - (Itlndex tOCBXn); 

GOTO [RClikActi ve], RState «- (RState) AND NOT (RIActive); 

* No input IOCB, mark Data Lost 

RIDataLost: GOTO [RINoSave], RPNew <- (RPNew) OR (RfromDCELost); 
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SET TASK[RFTask]; 

ONPAGE [RFPago'J; 

* Output character has been sent. Load up registers and check, if sending BCC. If not, 

* look at IOCB buffer for a character. 

ROFramoStart: CALL [RGetPtrlOCB], T *- (RPtrCSU) + (RIndexIOCUO.it); 

CALL [RGotPtrs], UseCTask; 

* Hood a character. Dispatch on state 

* States are: 

* 0 -> Lino idle. Send syncs 
* # t = > Sending syncs. 

* 2 •“> Just sent a character. Get next character from IOCB. 

* 3 -> Just sent character before BCC. Send first half of fJCC. 

* 4 => Just sent first half of BCC. Send second half of BCC. 

* 5 ■•--> Just sent last half of BCC. Idle transmitter. 

* 6 = > Just idled transmitter. Signal IOCB complete. 

RODispatch: SRFSlateDisp|RFStatc]; 

DISP[.H], T «• RRCount <- (RRCount) - 1; 

* Idle line. Send first sync and load sync counter 

T <- RSyncChar, ' AT [ROFrameLoc.O]; 

RData «- T; 

r <- ($RSyncCount[RDataHask]) - 1; 

ROSyncCount <• T; 

RFState *- (RFStatc) + (RFStatoIncr); 

* Sending syncs. Check if enough have been sent, if so start sending characters 

SKIPON [R<0], ROSyncCount <- (ROSyncCount) - 1, AT [ ROF rameLoc, 1] ; 

GOTO [RONoSavo]; 

lit State *■ (RFState) + (RFStatoIncr); 

GOTO [ROChcckCountj, LU «- RRCount; 

* A character has been sent, see if any more characters in buffer. 

* If nothing in buffer, check EndFramc bit and if set, end the frame. 

ROCheckCount: GOTO [ROGotChar, ALU>-0], LU <• (RCommand) AND (RCmdF.nd). AT [ ROT rameLoc, 2 ]; 

GOTO [ ROEndF i-ame , ALU//0] , RRCount <- (RRCount) + 1; 

RONextIOCB: NOP; 

CALL [ROo lie IOCB] ; 

GOTO [ROD i spate it]; 

* Got character, send it. Again, things are slightly complicated by the fact that we 

* are sending a byte rather than a word. 

ROGotChar: T <- (RMaxCount) - T; 

ROffSet <- (ROCrSul) + r; 

110ffSet <- (ROffSet) - 1; 
r <- RSI I [ROffSet, l j, TASK; 

PFetchl[RBufBase, RData]; 

GOTO [ROSendOdd, R ODD], LU < ROffSet; 

UOSendEven: GOTO [RODoBCC], RData «• RSII[RData, 10]; 

ROSendOdd: GOTO [RODoBCC], RData < RIIHASK[ RData]; 

* End of frame, since wo got here, we must want to end frame, so set state to idling 

* transmitter. 

ROEndFrame : RFState «- (RFState) + (RFStatoXncr4); 

GOTO [RONoSavo], RData <- 100000C; 

* Just sent character before BCC, send first BCC character and increment state 

ROSendBCC: T <- RI!MASK[RBCC], AT [ROFrameLoc,3]; 

RData «- T; 

ROInci'Frame: GOTO [RONoSavo], RFState *- (RFState) i- (RFStatoIncr); 

* Just sent first half of BCC. send the second half. 

GOTO [ROSendBCC], RBCC *- RSH[RBCC,10], AT [ROFrameLoc,4]; 

* Just sent second half of BCC, look for more characters 

ROIdleXnrtr: RFState <- (RFState) - (RFStateInci'3), AT [ROFramoLoc, 5]; 

GOTO [ROCheckCount], LU «- RRCount; 

* Just idled transmitter, mark IOCB complete and advance to next IOCB 

GOTO [RONextIOCB], RFState <- (RFState) - (RFStatelncrB), AT [ROFrameLoc,6]; 

* Calculate BCC and check for special characters 

* Save IOCB registers 

* Save CSB registers 

* Check for more work 

RODoBCC: CALL [RDoBCC]; 

SRICharDisp[RTemp2]; 

DISP [.+1]; 

GOTO [ROFinish] , AT [ROSpocl.oc , 0]; 

GOTO [ROFinish], RBCC «- OC, AT [ ROSpecLoc , 1] ; 

GOTO [ROFinish], RFState «- (RFState) + (RFStatoIncr), AT [ROSpecLoc,2]; 

ROFinish: CALL [RSaveTOCB], AT [ROSpecLoc,3]; 

RONoSave: CALL [RSaveCSB], T <- (RPtrCSB) + (RIndexIOCBOut); 

GOTO [RChkActive], RState «- (RState) AND NOT (ROActive); 
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SET TASK[RFTask]j 
ONPAGE[RFPage'|; 

* Finish off IOCB buffoi* 

RDonoIOCG: Us cC Task; 

T ♦- APC&APCTask, TASK; 

RSave <- T; 

RDonoIOCBl: LU <- (RComp) AND (RCmpStatus); 

SKIPON [ALU//0]; 

RComp <- (IlCoinp) + (RStatOk); 

CALL [IlSavoIOCQ], RComp «- (RComp) OR (RCmpProc); 

Lo a d P ag e [ ROP ag 0 ]; 

CALL [RMoxtlOCD], T <• (RPtrlOCB) + (RIndexNext); 

T (liCommand) AND (ORQ[RCmdWakcAll!,RCmdWakoErr!]C); 

LU ♦- (RComp) AND T; 

GOTO [RGetlOCB, ALU=0], T *- (RPtrCSB) + (RtndexMask); 
LoadPaqe[RBPage]; 

CAl.I.P [RPost], PFetchl[RIJascPageO , RTomp2]; 

GOTO |' RGotlOCB]; 

* Got buffer pointers. 

RGetPtrIOCB: RETURN, PFotcli4[RBnsePagoO, RPt rIOCB] ; 

RGetPt rs: T <- APC&APCTask; 

RSave *- T; 

RGotlOCB: T <- RPl rIOCB; 

GOTO [RNoIOCB, ALU“0]; 

CALL |RRfask], PFetcMf RBasoPageO , RBuf Base] ; 

T <- (RPtrlOCB) + (RIndexCount); 

CALL [RFixBaseReg], PFetch4[RBasePageO,RRCount]; 

GOTO [RSubRcturn]; 

* What to do if we don't have an IOCB! 

* On input, signal data lost (NOT IMPLEMENTED YET) 

* On output, idle lino 

RNoIOCB: DBLGOTO[RINoIOCB, RONoIOCB, R ODD], LU <- RFState; 

RINoIOCB: GOTO [RINoSnveJ; 

R 0 N 0 IOCB: GOTO [RONoSave], P.Data <- 100000C; 
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SET TASKfRFTask]; 

ONPAGEfRFPage]; 

" Accunuilato E1CC 

* Load value from special character table 

RDoDCC: UseCTask; 

T <• APC&APCTask, TASK; 

RSave «- T; 

r (RPtrCSB) i- (RIndexBCCTable); 

CALL [RFIxBaseRog], PFotch2[RUasoPagoO, RBufBasoj; 

T <- RData; 

T <- (RIIMASK[ RBCC]) XOR (T), TASK; 

PFotchl[RBuf3asc, RTemp2]; 

T <- (RTemp?) ; 

RBCC <-• ( RSH[ RBCC , 10 J ) XOR T; 

* Chock if this character requires special handling 

* Typos of characters 

* 0” normal 

* 1-start BCC 

* 2-end BCC (ie generate or check DCC). Implies and of block on input 

* 3-end of block 

RCheckSpec: T <- (ROata) + (400C); 

CALL [RRTask], PFetchl [RBufBase, RTemp2]; 

RSubRoturn: APC&APCTask <- RSave; 

RRTask: RETURN, LU <- RPtrlOCB; 
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SET TASK[RFTask]; 

ONPAGF[RFPage]; 

* Fix up base register 

RFixBaseReq: T <- ( LSHfRBufBaseLo, 10 J) + 1; 

RETURN, IUlufBasel .0 <- (RBufBaseLo) OR (T); 


* Set completion status 

RSetStatus: l.U «- (RComp) AND (RCmpStatus); 

GOTO [RliTask, A1.U//0], T <■ (RTempP) OR (RCitipError); 
RComp (RComp) OR (T); 


* Save 10C0 ptrs 

RSaveXOCR : T <- (RPtrlOCB) + (RIndoxCount); 

RETURN, PSto 1 e4[RBasePageO, RRCountJ; 


* Save CSB ptrs 

RSaveCSB: PFotchl[RBasePagoO, RPtrlOCB); 

I.U <- RPtrlOCB; 

RETURN, PStorc4[RBasoPageO, RPtrlOCB]; 
ON PAGE [RBPagej; 

* Point to next IOCB 


RNextIOCB: PFotcbl[ROasePageO, RNext]; 

OBLGO TO[ . 1, . 1 - 2 , R ODD], LU *- RFState; 

GOTO [.+2], I <• (RPtrCSB) + (R Index TOCBIn ) ; 
GOTO [.M], T <- (RPtrCSB) i- (RIndexIOCBOut); 
L.U <- RNext; 

PSto rel[RBasoPageO,RNext]; 

T <- RNext; 

RETURN, RPtrlOCB <- T; 


* Post Complete 

RPost; RStackSave «- pNWW; 

T <- (GetRSpec[ 103] ) XOR (3 7 7 C) ; * read stkp 
STKP <- RStackSave, RStackSave <- T, NoReglLockOK; 
T *- RTcmp2; 

Stack «- (Stack) OR (T); 

RTemp? «- pRSImage; 

SiKP <■ RTemp2; 

I *■ Stack <- (Stack) OR (30C); 

RS232 <- T; 

RETURN, STKP < RStackSave; 


END; 
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* Last modified by BRD on June 1, 1979 12:13 PM 

* Version 3.0 

insort[RS232Byto'|; 
insort[RS232Tost]; 


END; 
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* Last, modified by Danielson on August 28, 1979 1:06 PM, fix conflicts caused by moving CSB to GlobalOefs 

* modified by Ciiang on August 22, 1979 6:04 PM, move CSB to Globaldefs 

* modified by Chang on August 2, 1979 1:12 PM, change CSB assignment 

* modified by BRD on June 3, 1979 4:40 PM 

TfTLE [RS232DofsJ; * Definitions for RS232C microcode 


Sot[RBPago,2]; 

So t[" RFPago, 1] ; 

Set [ IlFTask, 4 ] ; 

So t [ RBTas k , 5 |; 

* Register used to notify at correct task 

sr.r tagk[ on; 

RV[R0, 0.1; * Register 0 

* Registers (Timor task) must match those used by Kernel 

SET TASKf16]; 

RVfRXMotify, 52(| j * Input/Output/Poller Notify rog 

RVfRfNotify, 01j; * Frame Notify rog 


Registers (RS232 Frame task) 
SET TASKfRFTask]; 


RVfRTempo, 

0J; 

* Unused 

RVf RTemp2, 

11; 

* Temporary rog 

RVfRPNew, 

21; 

* Now FromDCE bits 

KVfRSave. 

31 ; 

* Subroutine return save 


* Tire following 12 registers are loaded using throe Pfetch4s. They should'be quad word 


* aligned 





RVfRBufBasc, 

^1 

* 

Base 

of IOCB buffer (even rog) 

RVf RBul Basel-O, 

01 

* 

Base 

of IOCB buffer (odd reg) 

RVf IlNcxt, 

61 

* 

IOCB 

next pointer 

I1V[ ROf f set, 

M 

* 

IOC 11 

offset field 

RVfRRCount, 

10] 

* 

10CB 

count field 

RVfRMaxCoun t, 

n 1 

* 

IOCB 

max count field 

RVf RCommand, 

12] 

* 

IOCB 

command field 

RVf RComp, 

13] 


IOCB 

completion IOCB field 

RVf RPtrlOCB, 

14] 

* 

Ptr to start of IOCB 

RVfRData, 

101 

* 

Da ta 

from bit task 

RVf IlFStato, 

161 

* 

F rnmc 

state 

RVfRBCC, 

17] 

* 

F rame 

BCC 


* Registers (RS232 Poller) 

RVf RPToDC E , 101; * Coinmand/ToDCE from CSB 

RVfRPfromDCE, It]; * FromDCE from CSB 

* Registers (RS232 Bit task) 

SET TASKfROT ask]; 

RVfRState, 20]; * 

RV[' RDataMask , 21]; * 

RV| RTData, 22]; * 

RV[ROData, 23]; * 

RVfRStackSave, 24]; * 

I1V[RB Tempi, 25]; * 

RV[RFramoTimerl, 261; * 

RVfRPtrCSB, 27]; * 

RVf RIFulIBitLo, 30]; * 

RViRXFullBitHI, 31]; 

RV[RIHalFBitLo, 32]; * 

RV[RlllalfBitHi , 33]; 

RV[ROFullBitLo, 34]; * 

RV[ROFulIBitHi, 35]; 

RVfRIS.yncTimer, 30]; * 

RVfROSyncTimer, 31]; * 

RVfROSyncCount, 32]; * 

RVfRSyncChar, 33]; * 

RV[RllCount, 32]; * 

RVfROlCount, 33]; * 

RV[RBasePageO, 36]; * 

RV[RBasePage0Eo, 37]; 


State: 

Mask containing character length info 
Input data register 
Output data register 

Register to save current stack pointer 
Bit task temporary 
Frame wakeup tinier 
Pointer to CSB 

Input bit timer 

Input half bit timer (start bit detection) 
Output bit tinier 


Input timer register 
Output timer register 
Output sync counter 
SVN character 

Input 1 counter 
Output 1 counter 

Base for page 0 
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* ICCB 




* Melds in TOCB 

Command 


MCf IICmdWakeAll , 100000] 

* WakeUpAIv/ays 


MCf liCmdWakeE rr,040000J 

* WakeUpOnError 


MCfRCmdSlopErr,02 

0000] 

* StopOnError 


MCfRCmdStart, 010000] 

* StartOfFramo 


MCfRCmdEtid, 004000] 

* EndOfFrame 


MCfitCmdReserve,002776] 

* LeftOvorBits 


MCf RCmdComiiiand, 000001] 

* Command field 


* Fields in IOCO 

Completion 


MCfRCmpProc, 100000] 

* Processed 


Mcj'RCmp Error, 040000] 

♦ E r ro r 


MCf RCinpFnd, 020000] 

* EndOfFrame 


MCf RCnipRoserve, 017760] 

* LeftOverBits 


MCfRCmpStatus, 000017] 

* Completion status 


* Status field in 

IOCB 

Completion 


MCfRStatUnused, 

0] 

* Not used 


MCfRStatOk, 

11 

* Successful 


MC f RSlatl.os t, 

2] 

* DataLost 


MCf RS ta tB roak, 

3.1 

* Break detected 


MCfRStatTOut, 

4] 

* TimoOut 


MCfRSLatBCCErr, 

■ r >] 

* Checksum error 


Mt: j'RS tat Pari t.y E rr 

. 6] 

* Parity Error 


MCf liS latF rarnefi rr, 

7J 

* FramingError 


MC f RStatBadCha r, 

10 | 

* Xnval idCliar 


MCf RStatBadF mine. 

11] 

* InvalidFrame 


MCf RSta tAbo rt, 

12] 

* IOCB aborted 


MC| RStatAbort2 , 

13 J 

* IOCB aborted by TransforNow 


MCfRStatDisater, 

14 | 

* Disaster 
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* RState Registers fields 

* Input bit states 


MCf RIBStateMask, 

000360]; * 

Input bit state bits 

r input parity bit 

MCfRIBStatoIncr, 

000020]; 

Increment for input bit state 

* Output bit states 

MCfROBStnteMask, 

0000171; 

Output bit state bits 

output parity bit 

MCfROBStatelncr, 

MCfROBState Inc r2, 

MCf ROBS tat ol lie r3, 

000002]; * 

000004]; 

000000]; 

Increment for output 

bit state 

MCf ROBSt a let lie r4. 

000010]; 



MC [ R 0 B S t a t o I n c r 5, 

000012]; 



* RState Mi sc 

MCfRXActivo, 

100000]; * 

Someone active (must 

bo minus bit) 

MC[RIAc tivo, 

040000]; * 

Input active 


MCfROActivo, 

020000]; * 

Output active 


MCfRPActive, 

010000]; * 

Poller active 


MC f RU re a k X n P ro g ro s s 

000400]; * 

Break in progress 


MCfRActiveMask, 

170000]; * 

Activity bits 


MCfRIParityMask, 

000200]; * 

Input parity mask 


MCfROParityMask, 

000001]; * 

Output parity mask 


SF.Tf RIPari tyB it, 

10]; 

Input parity bit 


SCTf ROParityBi t, 

17]; 

Ouput parity bit 


SC'I'f RStateRoselBi t, 

110004]; * 

State of RState after 

Reset command 
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*TStato bits 

41 Moto: Upper byte is cleared at end of frame 

MC['RFCountIncr, 010000]; * Increment value to countdown 

MC|RFStatoCountBits,170000]; * Bits used in EOF countdown 

MC[(U StateMask, 000013]; * Fstato bits 

MC[l!FStateInput, 000001];. * Receiver active (must bo ODD bit) 

MC[RFStatoIncr, 000002]; * FStatc increments 

MCfRFStatelncrZ, 000004]; 

MC[R F St a t oIn c r3, 00000 3]; 

HC[RFStateIncr4, 000010]; 

MC[RFSt.ateIncr5, 000012]; 

McfllFStatoIncrO, 000014]; 

MC[ RFStatelncr'/ , 000010] ; 
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* RIOata Events 

MCfRIDataGoodChar, 000000]; 

MC[RTDataBreak, 000400]; 
HCf RIDataAbrt, 000400]; 

MC[RIDa taParltyErr, 001000]; 
MC[RIDataMag, 001000]; 

MC[RIDataFramoF.rr, 001400]; 
MCfRIDataldle, 001400]; 

* RDataMaskBits 

MC[RDataSlow, 000001]; 

MC[RDataS1zeMask, 000360]; 


* Got a good character (as.ync, byte sync, bit sync) 

* Break detected (async) 

* Cot an abrt (bit sync) 

* Parity error (async) 

* Got a flag (bit sync) 

* Framing error (async) 

* Idle line (bit sync) 


* Slow speed, less than 1200 baud 

* flits for data size in bits 
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* Indices into CSB and I0CD 

MCf fllndexStartStop t 0]; * Index to stnrt/s top status 

MCfRIndexMask, V|; * Index to naked not ify mask b its 

MCfRIndexToQCE, 2J; * Index to ToDCE bits/Command 

MCfRIndoxFromDCE, 3]; * Index to F romDCE bits 

MCfRIndoxrOCBOut, 4]; * Index to Output IOCB pointer in CSB 

MCfRIndexCharOut, 5 ]; * Index to Output character buffer 

MCf RIiuloxFStatoOut, 6'j; * Index to Out put FState 

MC[RIndexDCCOut, 7]; * Index to Output BCC 

MCf IIIndexlOCBIn , 10]; * Index to Input IOCO pointer in CSB 

MCf R tndoxCha rln , It']; * Index to Input character buffer 

MCfRlndexFStatetn, 12] ; * Index to Input FState 

MCfRlndoxBCCIn, 13]; * Index to Input BCC 

MCf RlndexIlCCTab le, 14 j; * Index to BCC table pointer 

MCfRIndexParni, 16]; * Index to Parameter block pointer 

MCfRIndcxBufPtr, 0]; * Index to Buffer pointer in IOCO 

MCf RlndoxNoxt, 2'j; * Indox to Next IOCB field in IOCB 

MCf IlliidexOf fsot, 3]; * Indox to Offset field in-IOCB 

MCfRIiuloxCount, 4]; * Indox to Count field in IOCB 

MCfRIndoxMaxCount, 5 J; * Index to MaxCount field in IOCO 

MC[RtiulexCommand, 6]; * Indox to Command field in IOCB 

MCflUndoxComp, /]; * Index to Completion field in IOCB 
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* TIMER CONSTANTS 

SE If mime rValue, 377]; 
SElfRITimerSlotl.o , 01; 
SET[RITime rS'lotll i, 1]; 
SLT[ ROT ImerSlotl.o , 2 j ; 
SFTf ROTiino rSIotHi , 3] ; 
SE I [ RFTiinerS lotl.o , 16]; 
:>ET[ RT ime r I d 1 c , 4] ; 

SF T[ROTimerSync,13]; 

SE Tf RT imo rCoun t, 14] ; 
SF.T[ RIT ime rSync ,17]; 
SET J' RT ime rSimp'l o, 5] ; 
SET[RFTimorValue,3]; 


Negative timer value For liSC timers 
Input timer slot (low) 

Input timer slot (hi) 

Output timer slot (lo) 

Output timer slot (hi) 

Frame timer 

* Idle timer state 

* Output synchronous 

* Count down timer 

* Input synchronous 

* Simple timer 

* 3*4.48 usee per Frame dispatch 


SET[R0ShortT imerl.O, A0D[t.SIII FT[RT iinerCount, 14 ] , LSII1FT[ 1,4], ROT ime rSlotto]]; 

SE I [" RFSho rtTimerLo , ADP[ LSHIFT[RTimerS imp I e , 14] , LSHI FT[ 111 T imorVal uo, 4] , RFtime r$ I o tLo]] ; 
SET[ ft 11 <11 oTimorLo , ADD[ I.SH I FT[RT liner Idle, 14] , LSHIFTf RT imo rVa luo , 4] , RIT ime rS lotl.o]] ; 

SET[ROIdI oTimc rl.o , ADD[ LSilIFT.[RT Ime rl die, 14] , I.SII.I FT[ RT imorVal uo , 4], ROT imo rS 1 o tl.o|]; 
SDT[RFIdleT1n>crLo,ADDfLSHIFT[Rr ime rtdl o,14], LSIIIFT[RTimo rVa luo, 4], RTF imerSlotl.o]]; 

SET [ Rl Sync Time rto , ADD[ LSI IT F T[ RIT ime rSync ,14], LSIlIFf [RT ime rVa I uo , 4] , RIT ime rS lo t Lo]] ; 
SET[ ROS.yncT ime rto , ADD[ l.SII l FT [ ROT ime rSync, 14] , LSHIFT[RT ime rVal uo, 4] , ROT imcrSlo tLoj] ; 
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* MI SC 



* SETf RS232CSBL.OC, 177600j; 

MCf RI232l)ata, 000200]; 

MCfRMaskParity, 160000]; 

St'T[ RBCCRoma irule r, 170270] ; 

* CSB location, moved to GlobalUefs 

* Bit to mask off data bit on input 

* Mask for parity typo bits 

* Flit sync checksum remainder 


* To DCE bits 



MCfRToDCEDTR,000040]; 

MC j 1! FoDCEKTS , 000200] ; 
MCfRToDCF.Mask,000240]; 

* Data tormina! ready 

* Request to send 

* DTR, IMS 


* From DCE bits 



MC[RFromDCERing,000001]; 

MCf OF roniDCEunusedl, 000002 ]; 

MC [ R F ro mDC Ell n li S a tJ 2,0 00 0 0 4 ]; 

MCf RF romPCI'i.inusod3,000010]; 
MCfRFromDCECD, 000020]; 

MC| RFromDCF.DSR, 000040]; 

MC | 11F RomDC EC IS, 00010 0]; 

MC f R F romDC EB ro a k, 0 0 0 2 6 0 ]; 

MCf RFi oinDCELost ,000400]; 

MC [ R F romDC t M a s k, 0 0 0161 ] ; 

MC f R1 a tclioclMas k , 000001 j ; 

MCf RNot La tchetlMask, 000176]; 

* Ring Indicator 

* Unused 

* Unused 

* Unused 

* Carrier detect 

* Data Set Ready 

* Clear to Send 

* Break Detected 

* Data Lost (no I OCR) 

* RI, CD, DSR, CTS 

* Break, RI, DataLost 

* Not latchcdMask 


* Following two dofinitons mus 

match those in kernel and mesa microcode. 


MCfpRSImage,342]; 

* MCfpNWW,25]; 

* Image of RS232 in timer/kernel 
* Interrupt register 
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RS232 AT Locations 


* Tho following four linkages are sot up via a RS232Link SI0 instruction 

SF.T[ RTWakul.oc , ADDfLSIUFTfnBPago, 10] , 010]]; * Receiver entry point 

SETf ROWakel.oc , ADDf LSIlIFTf RBPage, 10], Oil]]; * Transmitter entry point 

S U T f RPWakeLoc , ADD(; LSI! IT T [ RR»»ago, 10] , 012]]; * Poller entry point 

SETfRTWakeLoc, ADD [ I. Sli IF T [ ft P P a g o, 10], 000]]; * Frame wakeup point 

SE T [ I1S232S ta rtLoc , A1)D[1.SHIFT[ RFPage , 10] . 001]]; * RS232 Start Location 

SETf I1S232S ta rtl.oc 1, A0L)[ LSHIFT[ RFPage , 10] , 002]]; * RS232 Start Location! 

SETfRIB i tLoc , A0D[ LSIII FT[ ROPage , 10] , 000]] ; * Disp location for input bit state 

SETf RTJustLoc , ADDf 1 SliXFT[RBPage , 10] , 020]] ; * Disp locat ion for justiTying char 

SETf R IF I agloc , ADD| LSIIfl if RUPage , 10] , 020]] ; * Disp location for input flag states 

SETfRIParLoc, ADDf LSIlIFTf RBPage, 10], 040 jj; * Disp location for input parity 

SFT[ R lldl eLoc , ADDf LSIlIFTf RBPage , 10] , 040]] ; * Disp location for input idle states 

SETfROBItLoc, ADDf I.SIlIFTfRBPage, 10] , 060]] ; * Disp location for output bit state 

SETf ROParl.oc , ADDfl.SIlIFlf RBPago , 10] , 360]] ; * Disp location for output parity 

SETfR IFrameLoc, ADDf LSIlIFTf RFPage , 10 ], 20] ]; * Disp location for input frame state 

SF f | ROT ramcLoc , ADDf LSIlIFTf RFPage , 10], 40]]; “ Disp location for output frame state 

SETf RIEvonlLoc , ADDf LSIlIFTf llTPage , 10 ], 60]]; * Disp location for input frame event 

SET f RISpocLoc, ADDf LSIlIFTf RTPage, 10] , 100] ]; * Disp location for input spec chars 

SETf ROSpecLoc , ADDf LSIII FTf RTPage , 10] , 120]]; * Disp location for output spec chars 

SETf RPCinOLoc , ADDf I.SIIIF Tf RFPage , .10] , 140]]; * Disp locations lor CSO commands 

SETf RISynLoc , ADDf LSIII FTf RTPage , 10] , 160]]; * Disp locations for input SYN chocking 
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* Dispatch tiiacros 

M»[$RIBUD1sp, DI.SPATCII[//i,11, 3]] 
M0['$ROBitDisp. DISPATCH[//i , 14 , 3] ] 
M0| $RlEvontD isp , DISPATCII[//l, 0, 2]] 
MQ[ $RFS tateD'isp , DISPATCH[//1,14, 3]] 
MfliSRICharDIsp, DISPATCII[//1, 0, 2]| 
M0f$RTJustDisp, DISPATCII|V/l, 3, 2]] 
M3[$RPa ri tyDisp, DISPATCH); //l, 0, 3|] 
M0[$ iiPCmdD i sp, DISPATCH[//1, 0, 4]'| 
M6|$RSt.opB1ts, l.OF[//1, f>, 2]]; 

M@[$RSyncCount, LDI : [//1,14, 3] |; 

* Other macros 


* Dispatch on input bit state 

* Dispatch on output bit state 

* Dispatch on input event 

* Dispatch on frame state 

* Dispatch on spec char typo 

* Dispatch on character length 

* Dispatch on parity type 

* Dispatch on poller command 
11 load stop hit count 

* load sync count 


M@[SKIPON , G0T0[ , +2, //!]]; * Skip Macro 

* M(?[$RSelDi spLo, AND@[AOD[I.SIIIFT[//1,14] ,//2], 37 7 ]C]; * Set dispatch value Front task.addr 

* M®[$RSotDispHi, AND0[ADD[.LSHirT[//l. 14],//2], 177400JC]; 

END; 
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InsertfDOLang]; 

MoM idas In i t; LangVcrs ion ;Mul tDIB; 

Title[RS2320ccupied]; 

* Generated by BHD on June 25, 1979 11:54 AM 

* Locations reserved on page 0 

IMRF.SERVE[0, 0, 400]; 

* Locations reserved on page 1 

* Locations reserved on page 2 

IMRKSERVEfZ, 100,210]; 

IMRESERVEf 2,374,4]; 

* Locations reserved on page 3 

IMRESERVE[3, 0, 400]; 

* Locations reserved on page 4 

IMRESERVEf4, 0, 400]; 

* Locations reserved on page 5 

1MRESERVE[5, 0, 400]; 

* Locations reserved on page 6 

IMRESERVEf6, 0, 400]; 

* locations reserved on page 7 

IMRESERVEf7, 0, 400]; 

* Locations reserved on page 10B 

IMRESERVEf10, 0, 400]; 

* Locations reserved on page 11B 

IMRESERVEf11. 0, 400]; 

* Locations reserved on page 12B 

IMRESERVEf12, 0, 400]; 

* locations reserved on page 13B 

IMRESERVEf13. 0, 400]; 

* Locations reserved on page 14B 

IMRESERVEf14, 0, 400]; 

* Locations reserved on page 15B 

IMRESERVEf15, 0, 400]; 

* Locations reserved on page 16B 

IMRESERVEf16, 0, 400]; 

* Locations reserved on page 17B 

IMRESERVEf17, 0, 400]; 

END; 
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1nsert[d01ang]; 

NOMIDASIMIT;LANGVERSION; MULTDTB; 

1nsert[G1obalDofs]; 

TITLF.[f)S232STO |; 

4 Last modified b,y Chang on June 26, 1079 11:02 AM; move to Globaldefs 

* modified by Johnsson on June 13, 1979 3:03 PM; now registers 

* modified by PRO on June 3, 19/9 4:09 PM 

* added KS232 SIO address constants 

* RS232 SIO instructions 


* M@[ $0SetDi spLo, AMD@[ADD[ LSIIIFT[/71, 14] , ,'/2], 37 7]C] ; 

* MS[$l)SetP i spill, ANO0[ADD[LSIIIF T[//l, 14] , 7/2] , 177400JC]; 

Set['RBPagc,2'|; 

Set[RTPage,l]; 

So t[RXDispatchLoc , ADD[I.SHIFT[ RBPugo , 10], 010]]; 
Set[RFDispatchLoc,ADD[LSHIFT[RTPage,10],000]]; 


SET TASK [10]; 

ON PAG l : . [El: Page] ; 

* The following two definitions must match those in Timor code. 

* RV[RENotify,4G); * Register containing frame notify values 

* RV[ fiXNot i fy , 4 7] ; * Register containing bit notify values 

* RS232 SIO noop (00) 

RSIORet: RETURN, AT [l!S232SIOLoc,0 |; 


* RS232 SIO stop (01) 

* Set dispatch address to be RS232SI01 oc'4 


RXNotify <• SRSe til i spLo[ RBTas k , ADD[ RS232SI0I.OC , 4] | , AT [RS232ST01.oc.lJ; 

T <- RXNot i f y <- (RXNotify) OR ($RSe tDi spll i [RB Task , AOD[ RS232SI0I.OC , 4]]) ; 

RETURN, RENotify <■ T; 

* RS232 SIO start (02) 

RXNot i f y <- $RSetD i splli [ RBTask , RXDispatehLoc] , AT [ RS232SI0LOC , 2 ] ; 

RXNOtify *- (RXNotify) OR (JRSelDi spl.o[ RBTas k , RXD i spalchLoc]) ; 

RFNo t i f y <- $RSe tDi splli [ RFTask , RFD i spate hLoc] ; 

RETURN, RTNotify <- (RENotify) OR (SltSetDi spLo[ RFTask, RTDi spatchloc]); 


* RS232 SIO unused (03) 


RETURN, 


* Following four REIURNs used to turn off RS232 notifies 

RS232 Rc t: RETURN, 

RETURN, 

RETURN, 

* RETURN, 


AT [RS232S TOLoc,3]; 


AT [RS232S[0Loc,4]; 
AT [RS232SI0Loc,5]; 

A I | 'RS232SIOI.oc.6i; 

AT |RS232STOLoc,7]; 


end[RS232SI0]; 
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* Test program for RS232C Microcode Loopback test 

* Version 3.0 

* Last modified by BRD on April 30, 1979 6:22 PM 

SETfTes tPago,4j; 


SET TASK[0]; 

ON PAGEfTestPago] ; 

* Restart location. 


RV[R0, 0]; 

IIV [ R1, 1]; 

RV[R2, 2"|; 

RVfRBaseO,4]; 
IIVfRBaseOLo,5]; 
HVf RlnBuf,0 ]; 

RVfRlnBufLo,7 |: 
RV[ROulBuf,10]; 
RV[ROutBufI 0 ,11]; 
RVfRInBase, 12]; 
RVfRInByto , 13] ; 
RVfROutBaso,14]; 
IIV[ROutByte,15]; 
RVf RC lit, 16]; 
RVfROrf,17]; 

RVfRCSBBase,20]; 


* Temp 

* Temp 

* Temp 

Pago 0 base reg 
Pago 0 base reg 
Input buf base reg 
Input buf base reg 
Output buf base reg 

* Output buf base reg 
Input IOCB pointer 

Input character 

* Output IOCB pointer 

* Output character 
Count f rout IOCB 

OffSet from IOCB 

* Pointer to C5B 


SLTf RStartl oc.ADOf LSIlIFTf lestPage, 10], 10]]; 

Self RXDi.spat chi oc.ADDfl.SIlIf If RBPage , 10 |, 0 10]]; 

Sot [ RED i spat cliloc, ADOfl SHIFT [ REPage, 10] ,000]]; 

Setf RS232STOI oc , ADDfl.SIlIPTf Tes tPage, 10 |, 000]]; 

Se lf RSLoc,ADDfRS232SIOLoc,1]]; 

MCf Lntr38conrog ,324]; *IIM 324 holds 38usec timer restart constant 


IIS: T <■ RO; * Notify task 0 at Start 

RO <- ANDSf 03 /7 , RStartLoc [C; 

RO <• (RO) OR (ANDOf 007400 , RSta rtl.oc]C ); 
APC&APCTask «- RO; 

RETURN, RO «- T; * Rostoro RO 

((Start: CIearMpanel , ATfIlStartl.oc]; 

RBaseO <- OC; 

RBaseOLo «- OC; 


* Clear out memory from 1000 to 2000 


R1 <- OC; 

I <- R2 *- 1000C; 

RDoClear: PS to relf RBaseO , Rl]; 

T <- R2 <- (R2) t 1 , CALLfRDoTask]; 
1 11 <- ( R2 ) - (2000C ); 

GOIO [RDoClear, ALUCO]; 


* Start transmitter by faking SIO 

RCSBBase «- AND@f 17 7 100,3 7 7 ]C ; * CSB pointer 

RCSBBase < (RCSBBase) OR (ANDOf 177100,177400]C ); 
RSetThings:BREAKPOINT, MOP; 


CALL fRSIOStarl]; 
CALL fREBegin]; 
CALL 
CALI. 

CALI 
CALI 


fRSet38Timer] ; 
f RDoReset]; 

| IIDoStopTransmi tte r J ; 
fRDoStopReceivor]; * Issue 
CALL fRDoStartReceiver ]; 

CALL f RDoStartT ran sin i tter] ; 


* Fake SIO start 
Initialize frame dispatch code 

* Start 38 usoc timer 

* Issue a reset command 

* Issue a StopTransmitter command 
StopReceiver command 
Issue a St artReceiver command 
Issue a reset command 


Incrment MPanel and chock buffers 


RlnBnso «- 2000C; 

RInBase <- (RlnBase) + (200C); 

ROutOase *- 200C; 

RLoop: CALL f. + l]; 

T <■ (RInBase) + (RlndexComp); 

PEotr.blfRBaseO, 111]; * Check Completion 

LU <- (Rl) AND (RCinpProc); 

GOTO f RGotlnpu t, AI.U//0]; 

T <- (ROutBase) + (RIndoxComp); 

PFetchl[RBaseO, Rl]; * Check Completion 
LU <- (Rl) AND (RCinpProc); 

GOTO [RGotOutpu t, ALU//0] ; 

RETURN; 

RGotOutput: 111 <- (Rl) AND NOT (RCinpProc); 
PStorelfRBaseO, Rl]; 

T <- (ROutBase) + (RlndexMaxCount); 
PFetchlfRBaseO, 111]; 

T *- (ROutBase) + (RlndexCount); 

GOTO [RLoop], PStorelfRBaseO, Rl]; 
RGotlnput: IncMPanel; 

111 <- (Rl) AND NOT (RCinpProc); 
PStorelfRBaseO, 111]; 

T * (RInBase) + (RIndexBufPtr), TASK; 
PEetcli2[RBaseO, RlnBuf]; 
r <- (LSHf RlnBuf Lo , 10]) + 1; 

RlnBufLo <- (RlnBuf Lo) - OR (T); 

T <- (ROutBase) + (RIndexBufPtr), TASK; 
PFetcli2[RBaseO, ROutBuf]; 

T «- ( LSHf ROu tBuf Lo , 10]) + 1; 

ROutBut'Lo «- (ROutBufLo) OR (T); 

T <- (RInBase) + (RlndexCount); 
PFetchlfRBaseO, UCnt]; 

T «- (RInBase) + ( RIndexOf fSet) ; 
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PFetchlfRBasoO, ROTT]; 

RCompi.oop: I <- ROff; 

I.U <- (RCnl) - T; 

GOTO [REndLoop. AI.U=0J; 

CALL [RGetlnByte]; 

CALL [RGetOutByte]; 

T •- RlnByte; 

l.tJ <- (ROutByte) - T; 

GOTO [RCompLoop, A LU = 0 |, ROTf < (ROff) + 1; 

BREAKPOINT; 

REndLoop: T *- (RInBaso) + (RIndexCount); 

R1 <- OC; 

PStore.l[ RBaseO , Rl] ; 

T <- (RInBaso) + (RIndexNext); 

PLetchi[RBaseO, RTiiBase]; 

T *• (ROutBase) '• (RIndexNext); 

GOTO [RLoop], PFotcb1[RBasoO, ROutBase]; 

* Subroutine to set up TPC link for frame code 

RFBogin : ill <- $RSo tDi spLo[ 0 , RS232S ta rtl.oc] ; 

GOTO [RFDoDisp], Rl (Rl) OR ($RSe tDi spll i [ 0 , RS232S ta r tLoc]); 

* Subroutine to fnko RS232 STO Start Instruction 

RSIOStart: Rl <• $RSo tD i spl.o[ 1G, RSLon] ; 

Rl <- (Rl) OR ($RSotDispHi[16,RSLocj); 

RFDoDisp: APC&APCTask <- Rl; 

IlDoIask: RETURN; 

* Subroutine to issue a puller commands 

RDoReset: GOTO [RDoACmd], Rl < 20000C; 

RDoStartRccoiver: GOTO [RDoACmd], Rl <- 30000C ; 

RDoStartTransmittor: GOTO [RDoACmd], Rl <- TOOOOC; 

KDoSLopReceiver: GOTO [RDoACmd], Rl «- 50000C; 

RDoStopTransmittor: GOTO [RDoACmd], Rl <• 60000C; 

RDoACmd: UseCTask; 

T <- APC&APCTask; 

RO < T; 

T *- (RCSBBasc) + (RIndexToDCE); 

PFetchl[RBasoO, R2]; 

T f Rl; 

R2 <- (R2) OR (T); 

T «- (RCSBBasc) t (RIndexToDCE) ; 

CALL [RWaitCmd], PStorelfRBaseO, R2J; 

RWaitCmd: NOP; 

NOP; 

NOP; 

NOP; 

PFetchl [RBaseO, 1)2]; 

LU <- I.IIMASK] 1)2 ]; 

SKIPON [ ALU//0]; 

APC&APCTask <- RO; 

RETURN; 

* Set 38 usee timer 

l)SoL38Timo r: RO <- ( Lmr38con rog ) ; 
stkp <- RO ; 
stack «- (50000c) ; 

stack <- (stack) or (176c) ; ‘simple timer,value 7,slot 16 
loadt iiner[st.ack] ; 

RETURN; 

* Get Input byte 

RGetlnByte: T < l!SII[ ROff , 1] ; 

PFetchl[RInBuf,RlnByte]; 

SKIPON [R ODD], I.U <- ROff; 

RGutlnEven: RETURN, RlnByte <- RSH[ RlnBy to , 10]; 

RGetXnOdd: RETURN, RlnByte «- RIIMASK[ RlnBy to] ; 

* Got Output byte 

RGctOutBy te: T < RSIt[R0f f , 1] ; 

PFetchl[ROutBuf , ROutByte] ; 

SKIPON [It ODD], I.U «- ROff; 

RGetOutEven : RETURN, ROutByte <- RSH[ROutByte , 10] ; 

RGetOutOdd: RETURN, ROutByte «- RHMASK[ROutByte]; 
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* RS232 S10 code 

SET TASK [ 16 J; 


* RS232 SIO noop (00) 

RSIORot: RETURN, AT [ RS232SIOLoc, O'J : 

* RS232 SIO start (01) 

RXNotify <- $RSetOisplli[RDTask, RXDIspatchl.oc] , AT [RSZ32SI01.OC , lj; 

RXMOtify «- (RXNotify) OR ($RSetDispLo[RUTnsk,RXD1spatchLoc]): 

Rl No t i fy <- $RSotD is pi I i[RF Task, RFDi spo tchLocJ ; 

RETURN, RFNotify <- (RFNotify) OR (?.RSotD i >;pi.o[RFTask, RFDI spatcliLoc]); 

* RS232 SIO stop (02) 

* Sot dispatch address to be RS232SI0LocM 

RXNotify <- $RSe tD ispLo[RBTask,ADD[RS2325IOLoc,4] |, AT [RS232SIOLoc,2]; 

T <- RXNotify <- (RXNotify) OR ($RSetDispll i [ RBTask , ADD[ RS232SI0I..OC, 4] |); 

RETURN, RFNotify F; 


♦ RS232 SIO unused (03) 
RETURN, 


AT [RS232SI.Ol.oc, 3]; 


* Following four RETURNS used to turn off RS232 notifies 

RETURN, 

RETURN, 

RFTURN, 

RETURN, 


AT |RS232StOLoc,4 | 
AT [RS232S10Ioc.OJ 
AF [RS232S10Loc,6] 
AT [RS232SI0LOC,/J 


END; 
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BUILTIN[INSBT.24]; 
f,MSRT[D0l ANG]; 

NOMIUASINIT;MULTDIB; 

TITLE[Timor]; 

INSRT[GlobalDof s ]; 

* Last Modified b.y Chang on August 20, 1979 6:49 PM, move Timer's regs 

* Modified by Jobnsson on July 10, 1979 7:10 PM, New Kernel faults 

* Modified by Chang on June 1, 1979 6:18 PM, RXNotify = 52 

* Modified by Sandman on May 8, 1979 12:16 PM 

* Added Pilot high resolution timer; 

* Modified by Sandman on April 6. 1979 7:36 PM 

* Pinned down timer code; 

* modified March 26, 1979 1:07 PM - added RS232C hooks 

* added poller dispatch code in realtime clock 

* added bit and frame dispatch code in timer dispatch table 

* Modified March 22, 1979 9:35 PM by Chang for PushButton Hoot 

* replaced "CheckStop" and "ChockStopl" by "Timorfiet" 

* Based Kernel.me by CPT March 1, 1979 

IMRESERVE[1, 0,100]; * Don't use EPROM area 
I.MRESERVF. [ 2,0,100 ]; * Don't use EPROM area 

RV[temp,61]; 

RV[ in it rO, 62]; 

RV[ini trl,53]; 

RV[in it r2,64 |; 

RV[1n1tr3,65j; 

* The following definitions MUST MATCH THOSE IN RS232C MICROCODE!!! 

So t T a s k[TT a s k] ; 

RV[EOMotify, 40]; * Register containing notify value for Ethernet 

RV[RFNotify,46]; * Register containing frame notify values 

RVjRXMolify,47]; * Register containing bit notify values 

* End of RS232 definitions 

RV[RSXmago,42]; ‘Image of RS232 hardware register 

* RV[RW0,37];"temporary for Con t rol Sto re address during initial clear and road/'write 
RV[RW0,66];"temporary for ControlStore address during initial clear and rcad/writo 


< 


* RV[ IITCLOW, 25] ; 
RV[RTCtOW,55]; 

" IIV| TMR38CON.24J; 
RV( i MR38CON, 54 ] ; 
RV[BTIMER,57]; 

RV[ RET R,/ /]; 

RV[R377,77]; 


"low half of Alto RealTimo clock 
"low half of Alto Beal Time clock 

"constant for 38usec timer 
"constant for 38usoc timer 
"refresh timer register 
"refresh address 

"use this register to clear R file 


SE1 [ BootStartLoc,add[lshif t[TimerinitPage2,10],372]];"Push button start. 1oc. 
SET[ReadyToGoLoc,add[Ishif11TimorinitPage2,10],37 4]];"End of PreInitialization 


OnPago[TimerinitPage2]; 

SetTask[0]; 

BootStart: 

temp <- (1000c), at[BootStarlLoc]; * set task II 0 
temp «- (temp) or (116C); 

apc&apctask *■ temp; * gotop Write CS Loci 
Re til rn; 


MC[FaultLoc, 100]; 

Set [Bog i n Fail It, 100]; 

0nl’age[ Timer in i tPagel] ; 

Se tTask[0]; 

* Write at Location 1: 

* T <■ APC&APCTask, goto[Fan ItOccured] , AT[1]; 

initrO *- (60000C), at[1116]; 

initrO <- (InitrO) or (150c); 

in it rl <- (65000C) ; 

in It rl *■ (initrl) or (lc); 

initr-2 <- (15C); 

initr3 <- (1C); 

t *■ initr? ; 

LU initrO; *T lias data 2 
APC&APCTASK <- 1 nit r3; 

WRITECS0&2; 

LU «- ini trl; 

APC&APCTASK <- in i tr3; 

WRETECS1; 

initrO <- (45C); 

initrl <- (1000C); 

initrl <- (initrl) or (177C); 

1nitr2 «- (3C); 
initr3 *- (OC); 
t *- 1n1tr2 ; 

LU <- initrO; *T has data 2 
APC&APCTASK <- ini t r3 ; 

WR1TECS0&2; 

LU «- initrl; 

APC&APCTASK «- initr3; 

WRITECS1; 

temp «- (161000C); * notify task 7/16 
temp «- (temp) or (376C); 
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apc&apctask *• temp; 
fie tu rn; 


SetTask[TTask]; 

RTMP *■ (100000C), at[137G]; 

CI.RTIMERS; l.OADTIMER[R IMP]; ‘Clear out all Timers 

T *- OC; 

RS232 <- T; 

RTMP 4 - (IITMP) + 1, RESETMEMERRS; *Clear any pending memory errors 
LU (RTMP) AND (17 C ); ‘there are 16d timers 

REFR *- (OC), DBLGOTO[IHITDONE, CI.RTIMERS, ALU=0]; 

INXTDONE: 

LoadPage[TimerPage]; 

RSImage «- Oc, gotop[SctUpRef]; 

OnPagc[TimerPage]; 

SotTaskfTTask]; 

SF.T[T imerBase, AI)D[LSH 1 FT[T ime rPage, 10], 300]]; 

SF.T| TiinerTablo. ADD[LSIITFT[ TimorPago, 10], 330]]; 

SET[ AuxT'imerTable , ADD|l.SHIKTf TimerPage, 10], 360]]; 

SET[ Ref roshBaso, ADD[LSIIIFT[T1inei'Page, 10], 244]]; * share mcl dispatch table 
SetIJp Ref: 

LU <• TIMER; *Sot up the Refresh tinier 

RTIMER < (50000C); 

RTIMER <■ (RTIMER) OR (257C); ‘simple timer,value lOd.slot 17b 
LOAD!IMER[RTIMER]; 

ca II (T imerReturn |, AT[T imerBase, 30]; 

T iine rWakoup: * Tim or wakelips come here 

t (DispatchfTimer, 14,4 |), AT[ I imerBase, 36 ]; 

DlSP[Timers], AT[TimorBaso, 37]; 

IimerRetu rn: 

RTMP (1000C); * transfer to task II 0 
RTMP <- ( R IMP) or ( 374C); 
apc&apctask *■ RTMP; * goto RoadyToGo 
Re tu rn; 

OnPaqof T imerin i l;Pano2] ; 

SetTask[0]; 

RoadyToGo: 

LoadPage[InitPage], at[ReadyToGoLoc];* goto START of Initialization 
gotop[SI ART]; 

OnPage[0]; 

So 11 a s k [ 1 / ] ; 

‘Pago Zero stuff 

*We put the instruction for BufferRofiN here.. 


*x37/x: gotop[.], at[37/]; ‘dummy 
» following 2 words replaced by tbe microcodes 

* ioadpage]0], go to[x3 ; /7x], at[0]; ‘buffer refill code is on page 0 

* T < APC&APCTask, goto[TaultOccured], AT[1]; ‘First, must save ape 


Fail 1 tOccu red : 

RXAPC < T, AT[BeginFault]; 

T <- GETRSPECf 147], AT[101]; ‘ctask, ncia 

RXCTASK < T, AT[102]; 

T <- (GETRSPEC[103]) xor (377c), AT[103]; ‘sstkp, stkp (stkp is read complemented) 

RXSTK <- T, AT[ 104] ; 

IUMP <•• 20c, AT[105]; ‘Set stkp to 20 in case there was a stack overflow pending 
Stkp *■ RTMP, AT[ 106 |; 

T <- (GETRSPECf 107]) xnor (0c), AT[107]; ‘aluresult, saluf (both road complemented) 

RXALU <- r, AT[ 110]; 

T <- GETRSPFC[ 157], LOADPAGE.f 0 ], AT[1U]; ‘page, parity, boolreason 
RXPPB <- T, RESETERRORS, G0T0[ F au I tStart j , A rj] 112 ] ; 

OnPage[Tiine rPage]; 

‘Timer dispatch table for task 16 
Se tTask[TT ask]; 

Time rs: 

REFRESIIfREFR], go to[ Ref reshlloxt ] , AT[T imerTable, 00] ;*slot 17 
ADDTOriMER[TMR38C0M], goto[RTCMext], AT[TimerTab1e,01]; ‘slot 16 

GOTO [TimerRet], APC&APCTask *- RFNotify, AT[TimerTable,02]; ‘slot 15 -- frame dispatch 
RETURN, AT[TimerTabIe,03]; ‘slot 14 
RETURN, AT[TimerTable,04]; ‘slot 13 

APC&APCTask <- EONotify, G0T0[TimorRet], AT[fimerTable,05]; ‘slot 12 (Ethernet slot = EOTask) 
RETURN, AT[T ime;'Table, 06] ; ‘slot 11 
RETURN, ATfTimerTable,07]; ‘slot 10 
RETURN, AT[TimerTable,10]; ‘slot 07 

APC&APCTask *- F.0Notify2, GOTOfT imerRet] , AT[T ime rTabl e, 11]; ‘slot 06 (Ethernet slot - E0Task2) 
RETURN, AT[TimerTable,12]; ‘slot 05 
RETURN, AT[T imerTable,13]; ‘slot 04 

RXNotify <- (RXNotify) OR (RONotify), G0T0[,+2], AT[TimerTable,14]; ‘slot 03 (RS232 output) 
RXNotify <- (RXNotify) OR (RONotify), GOTO[.+l], AT[TimerTable,15]; ‘slot 02 (RS232 output) 
RXDoNotify: 

APC&APCTask <- RXNotify, G0T0[RXReturn], AT[TimerTable,16]; ‘slot 01 (RS232 input) 

APC&APCTask *• RXNotify, G0T0[RXReturn], AT[TimerTabIe,17] ; *s 1 0 1 00 (RS232 input) 

AuxTimers: 

* goto[.], AT[AuxTimerTable, 00]; * Refresh Task (Used elsewhere) 

* goto[.], AT[AuxTiinerTable, 01]; * Alto Real Time Clock (Used at RTCNext) 
goto[.], AT[AuxTimerTable, 02]; 

goto[.j, AT[AuxTimerTable, 03]; 
goto[.J, AT[AuxTimerTable, 04]; 
goto[.J, AT[AuxTimerTable, 05]; 
goto[.], AT[AuxTimerTable, 06]; 
goto[.], AT[AuxTimerTabie, 07]; 
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goto[.], ATfAuxTimerTablo, 10] 
goto].], AT[AuxTimorTable, 11] 
goto[.], AT[Aux'fimerTable, 12] 
goto[.], AT[AuxT inter fab to , 13] 
goto].], AT[AuxTimerrable, 14] 
qotoj .], ATfAuxTimerTuble, 15] 
goto[. : J, AT [AuxT imei'Tnb 1 0 , 16] 
goto[.|, AT[AuxTimorfable, 17] 
SET TASKC1GJ; 


* Ethernet slot = F.OTask (doesn't use It) 


4 RS232 output (Used at RXRetum + 1) 

* RS232 output (Used at RXRetum) 

* RS232 input (Used by RTClock at RTCNoxt+l) 

* RS232 input (doesn’t use It) 


'•"Refresh has been started. Increment the address. 

RefreshNex t: 

REFR (RETR) + (20C), AT[ Ref roshOaso, 0]; 

ClockLo «■ (Clockl.o) + 1, AT[RnfreshBase, 1]; 

Skip[no Carry], REFR <■ (I1EFR) and nut (IOOOC), AT[RefreshBase, 4]; *no carries beyond bit Gd 
Clue kill <- (Clocklli) + 1, AT[Ra rrushFln.se, 3]; 

ADDTOTIHER[RTIMER 1, AT[RefreshBase, 2]; 

* check for Midas halt 


lu «- 1 df [ FFaul t, 1, 1] , AT[Ref reshDase, 6]; * check for Midas 

r 1 - PRINTER, goto[T imerRet, alu=0], AlfRef resliBaso, 10]; 

RTMP 1 - T, AT[RefresliBaso, 7]; 

T <• RTMP <- (RTMP) and ( 10000c), AT[RofroshBaso, 11]; 

T «- (PRINTER) and (T), AT[Refreshllaso, 12]; 
skipf alu//0], AT[Rof reshBase , 13]; 

return, AT [Rof roshBaso, 20]; 
goto[ . ] , SETFAULT, AT[RefreshBase, 21]; 
return, at|RefroshBaso, 22]; 


TimorRot: RETURN, AT[RefroshBaso,6] ; 

•■"Increment RTCLOW by 40. The display task will chock the 
•sign bit, and increment MM 430 and clear the bit if it is on. 

* lost if timo for an RS232 poll (every 25G x 38 nsec, ~ 10 msec) 

RTCNoxt: 

111 < LDF[RTCLOW, 3, 10], AT[ Aux Time rTabl e, 01]; * Chock if bits 3..12 are zero 
SKT.P[At.U=0], RTCLOW «- (RTCLOW) + (40C), A T[ Aux T inter labl o , 16]; 

RXRo turn: 

RXNotify <- (RXNotify) AND NOT (3C), return, AT[AuxTimorTab 1 e, 15]; 

RXNotify <- (RXNotify) OR (RPNotify), GOTO[ RXD 0 N 0 1 i f.y] , AT[ AuxT ime rTab 1 e, 14]; 


END; 
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TITLfI[u iDF.FS]; 

"last, edit by Chang August 20, 1979 0:36 PM, move Timer's regs 

* edit by CPT December 22, 1978 3:18 AM 

* edit by Sandman March 23, 1979 3:02 PM 

"UIDEFS.MC -definitions for IUTFP revision X 

SET[uiUTFPBASEADDR,LSHIFT[uiUTFPPACE,10]]; "FIRST ADDRESS OF UTFP PAGE 


"REGISTERS AND CONSTANTS USED BY UEFP TASK 
SETTASKfuiUTFPTASK]; 

RET[uiREADSTATREG, l]; 

SET[u 1DHKEG,1]; 

SFTfuiCREG , 2]; 

SETfuiHEBUF , 3] ; 

5ET[u iCXREG,4]; 

SETfuillTAB, 5] ; 

SETfu iBPREG,6]; 

SETfu iCURSM, /]; 

SETf uiDBADDR ,ADDf ) shif tfliiUTFPTASK, 4] , 1]] ; 

MCfD IkBkgndBit,100]; 

RVfuiDWA,OJ; "bit map base register 
RV| u iDWAl, 1] ; 

RVfuiTEMP, 2]; "must be even/odd pair, seo uiDCBDONE For PFETCII2 
RV| II i TEMP 1,3]; 

RVf ii iMPSTATUS,4]; "bits 0-4: count.5:7: part.14-17: vs STATE 
RVftl i MOUSEDELXY, 0 ]; "BITS 0-5: XDELTA, 10-15: YDELTA 
RVf lliTMSG ,6]; "INCOMING PARTIAL MESSAGE 
RV[ti iXMSG , 7] ; "MESSAGE HELD FOR POSTING BY VSYNC 

RVfll 1 LINK.101; "DISPLAY CONTROL BLOCK WORD 0 

RVf ll iNWRDS, lij; "DISPLAY CONTROL BLOCK WORD 1 

RV| u il)BA, 12]; "DISPL AY CONTROL BLOCK WORD 2 

RVfuiHERAT,12]; "Used during initialization only 

RVfuiSLC,13]; "DISPLAY CONTROL BLOCK WORD 3 

RV[ u i IICADDR , 13] ; "Used during initialization only 

UV| li iQTI MP ,10]; "Used For Storo4 to post mouse buttons (uiVS4) 

RVfuiQTLMP1,11]; 

RVfu iQTCMP2 , 12]; 

RVf ll iQTEMP3,13]; 

RVfu i BIJI Pl'R, 14] ; 

RVf u illECNT, 14] ; "Used dur ing initialization only 
RVfuiCnWORD,15 |; "IMAGE OF HARDWARE CONTROL REG ISTER 
RVf ll iVSCOUNT, LG]; "Count of lines per field. 

Rvj u illLLINK, 10 ]; "Used during' initial ization only 
RVfuiLlMLSPLRFI ELD, 17 |; *594 : 1122b linos per field 
me[Ip Tlo,122 J; 
mc[1pfhi,1000]; 

liVfti iCCO, 10] ; * used during in itialization only 

RV[uiCC1,11] ; * used during initialization only 

RVfuiCC2,12]; * used during initialization only 

RV[uiCC3,13] ; * used during ini t ial ization only 

* RVfRTCLOW,25]; "Must bo the same as timer's 
RV[RTCL0W,55]; "Must be the same as timer's 

RVfuiCX,30]; "Cursor X 
RVfu iCY,31]; "Cursor Y 
RVfu i C N T,3 2 [; 

RVfu iBASE,34]; "BASE REGISTER PAIR 
RVfu iBASE1,35]; 
l!V| u i NBUFPTR, 36] ; 

RVfu iBUTTONS,37]; 


* display constants 

"COUNTS (BITS 1-9) AND PATTERNS (BITS 12-16) FOR HE RAM 

mefbo rOl, 2 03]; 

mcflierll, 201]; 

mcfherlh,20400]; 

mc[hGr21, 200]; 

mc[her31, 101]; 

mc[her.3h, 12400 ]; 

mc[her41, 203]; 

inc[hor61, 307]; 

mc[her5b, 5400]; 

inc[her61, 100]; 

inc[her71 , 116]; 

mcfherSl, 107]; 

mc[har91, 110]; 

mc[ he r9h, 35400] ; 
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insertfdO'langJ; 

NOMX DASI NIT ; LAHGVE RSIOM ;MULTDIB; 

Insert[GlobalOofs]; 
insertj UIDofs’]; 

tit I e[IJ tin i t] ; 

♦last edit by Johnsson April 7, 1979 12:29 PM 

♦Initialization for IUTFP 

SETTASK[u1UTFPTASK]; 

0NPA0E(DisplayInitPage]; 


displayinit: uiHEADDR <-■ (ZERO), AT[D i spl ayln i tLoc]; 

OUTPUTfu iilF.ADDR, 11 i CREG] ; '“CLEAR IIIF. CONTROL REGISTER 

tlillEPAT <■ horO'l, CALL[ 11 iLOADIIE] ; "LOAD THE HORIZONTAL EVENT RAM 

uillEPAT *- (herlh) ; 

u i HE PAT < (uillEPAT) or (herl'l) .CALL [11 i LOADIIE] ; 
uillEPAT <• (her21), CALl.[uiLOADIIE ]; 
tlillEPAT <• (her3h) ; 

uillEPAT <- (uillEPAT) or (hor31) ,CALI [u iLOADIIE] ; 
tlillEPAT <• ( h 0 r4 I ) , CALL[ui LOADHE] ; 
uillEPAT (herOh) ; 

uillEPAT *- (uillEPAT) or (licrG'l) , CALI [ 11 i LOADIIE] ; 


uillEPAT <- (her61) , CALL[uiLOADHE] ; 
uillEPAT <- ( her71), CALI [11 iLOADIIE] ; 
uillEPAT *• ( herfil ) , CAI 1 [ ui LOADHE ] ; 
tlillEPAT *- ( hei-9It) ; 

uillEPAT < (uillEPAT) or (herOl) ,CALL[u i LOADIIE]; 

ti i HE LOADED: 

itiBASE 1 - zero; 

uiBASEl <- zero ; 

nil I HE SPERM ELD < Ipflo ; 

11 i LI NESPE RE I ELD < ( u i I. INESPERE I ELD) or (IpElii) ; 

♦sot keyboard words to -1 (key up) 

'Vi TEMP «- 177000C; 

T <- u i TEMP (u iTEMP) or (30C); * 17/030 
uiCCO «- (ZERO) 1; 
uiCCl <- ( ZERO) -1; 
u iCC2 <- ( ZERO) - 1; 
uiCC3 < (ZERO)- 1; 

PS I ORElf 11 iBASE , u iCCO]; * mouse , keyset, etc . 

T <- uiTEMP <- (uiTEMP) 1 (4c) ; * 177034 

PSTORE4 |'u i BASE , ti i CCO ]; * ke.ybon rd[0 : 3] . 

T «• nil CMP <■ (uiTEMP) 1 (4c) ; * 17 7040 

PST0RE4[uiBASE,uiCCO]; * keyboard[4:7]. 

uiCRWORD «- ( 220C) ; “ALLOW WAKEIJPS, CDtAG“-0 
OUTPUT[li i CRWOlil) , u iCRFG J ; '“ALLOW WAKEUPS 
uiTEMP <- 377C; 

0U1PUT[ ui TEMP, tiillTAIV]; *load the HTAB counter with 377 
uiTMSG <- (ZERO) ; 

iriMPSTATUS <- T <• ZERO, ca l 1 [ui FINITE] ; 

u i LINK <• T, loadpago[uiutfppatjfl |; ‘“First waketip comes here 
uiBUFPTR < T<- 377C ,G0T0p[uiCSDONE] ; 

♦SUBROUTINE TO LOAD THE HORIZONTAL EVENT RAM 
♦(ADDRESSED VIA CXREG) 
ui LOADHE : T LDF[u i HERAT , 1, 11] ; 

llillECNT <- (T); 

ulHELOADLOOP: llillECNT «- (uillECNT)-1; 

GOTO[uiEINIIE , A1.U<0] , usoctask; 

OUTPUT[u iHEADDR, ti iCXREG] ; 
uiHEADDR <- (uillEADDR) + 1; 

OUTPUT[ll i HEPAT, uillEBUF], goto[ u iHELOADL.OOP] ; 
uiFINHE: RETURN; 


end[ui 1n11]; 
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iriso rt[dOl ang] ; 

NOMIDASINIT; LANGVERSION;MULTDIO ; 
insert[GlobalDefs]; 
insort| UtDefs |; 

T l TLE[ox tended-addross-UlTASK]; 

♦Task microcode for IUTFP 

* Last, modif ied by Chang, August 20, 1979 6:38 PH, move Timer's regs; 

* modified by Johnsson, April 7, 1979 12:29 PM; 

SETTASK[uiUTFPTASK]; 

UNPAGE[U1UTFPPAGE]; 


SF.T[u (PART, ADD[uiUTFPIiASEADDR, 20']‘|; ’which part of the backchnnnot message Is coming. 
SET[u iSIICUR, ADD [ it 1UTFPBASF.ADDR,60]]; ’cursor shift 


♦Subroutine to chock for and gather messages. 

•Call with DISPATCH[uiMPSTATUS,5,3],CALL[uiCHKMSG]; 

‘Returns without tasking 

uiCHKMSG : DISP[uiPARTO]; ’"D ispatch on MPSTATUS. PART 

•Test for message (XOATTN) 

U'iPARTO: GOTO[iliMSGRTN1, NOATTEN], usoctask, AT[uiPARf,O']; 

uiMPSTATUS <- (uiMPSTATUS) OR ( 110400C),RETURN; ‘START MSG, 

•Se t ii iMPSTATUS. PART--1 , u iMPSTATUS. COUNT 1 --14 

ii i PA RT1 : T <- ( 1000C), Dll I.GOTOfui INCXY, ui NOINCXY, IOAII f.N ) , AT[ u i PART , 1 ] ; * + X bit 

u i PAR f2 : T <- (177000C). DBLGOTOfui INCXY, u i NOINCXY , TOATTEN], AT[u i PART, 7]; *-X bit 

u i PARTS : T <- (1C), DBI.G0T0[ ui INCXY, uiMOINCXY . IOATTEN] , AT[u i PAR T , 3] ; * + Y bit 

uiPART4: T «- (177C ) , DBLGOTO[uiINCXY,u iNOIHCXY,IOATTEN]. AT[uiPART,4 j; *-Y BIT 

u i INCXY: uiMOUSEDELXY «- (uiMOUSEDELXY) > (T); 

uiMOUSEDELXY <- (u iMOUSEDELXY) AMD NOT (400C); 
u iNOINCXY: uiMPSTATUS <- (uiMPSTATUS) + (400C),GOTO[uiMOREMSG]; "Increment part by 1 


uiPARTG: T <- uiTMSG < RSH[uilMSG,1], DBLGOTO[uiMSGONE,uiMSGZERO,IOATTEN], A I[uiPART,5]; 
uiMSGONE: T <- uiTMSG <- (uiTMSG) OR (100000C); 'OR a 1 bit into the message. 

•Increment (Negative) count. 

uiMSG ZERO: uiMPSTATUS <- (uiMPSTATUS) + (4000C), DBLGOTOfuiMOREMSG,uiENDMSG,R<0j; 
uiMOREMSG: USECTASK; 
iriMSGRTNl: RETURN; 

"Post the keyboard and mouse buttons 

u iFNDMSG: t<- 1 cy[uiTMSG , i] ; "bit 1 is the keyboard change b i t 

uiBUTTONS <- T, go to[uiN0Kl30CIIANGE, alu>=0]; "save but tons 

uiKBDCHANGE; t <■ 1 df [uiTMSG . 4,10]; "keyboard data 
uiXMSG <• ( lsii[u iXMSG , 10] j or (t); 

uiNOKBDCI-IANGE: USECTASK; 

uiMPSTATUS <- (uiMPSTATUS) AND NOT (T77400C),RETURN; "Clear count and part. 
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*Do horizontal processing. Wo know that the controller needs data. 
xpreVSO: DISPATClIfu iMPSTATUS,5,3], cal 1 [uiCHKMSG] ; 

proVSO: I*- 2C, cal 1 [uiCheckCursor] ; 

uiVSO: OUTPU TfuiNBUFPTR, u iBPREG]; ’•precomputed uiNBUFPTR to hardware. 

T (uiDBA) AND NOT (17C); 
il l DWA T; 

♦Start the first IOFETCII 

uiDWT: I0FETCII16[u1BASE,u iDBADDR]; 

♦Calculate the read buffer pointer, the count, and next line’s DBA 
•in the shadow of the first IOFETCII (If there is to be more than one). 

T <- uiBUEPTR *- 377C; 

uiNRUFPTR *• (uiNBUFPTR) (3C7C); *From hero on, uiNBUFPTR is used 
•for the count (-(NWRDS + (ADDRESS and 173))) 

T<-RHMASK[u iNWRDS]; 

uiBtlFPTR <- (tiiBUi'PTIl)-(T); *377 - number of words for the display 
uiUUFPTR <- (ulBUFPTR.) OR ( 100000C); *Wakoup disable bit 
F<- (RHMASKfuiNWRDS])+(T); * T <- 2*NWUDS 

uiDllA<(u iDBA)-i(T); *uiDBA is now set up for the next scan line 
u i DWA < T <- (u i DWA) + (2 OC), C A L L.[ u i DWT1 ]; 

•Loop for second through Nth IOFETCII. 

uiDWT1: uiNBUFP IR<(uiNBUFPTR)i(20C),G0T0[uIBUFD2,R>=0 ]; 

IOFETCII L6[ ui BASE , u 1DBADDR] , G0T0[u iBUFD2X , ALU>-0] ; 
u iDWA«T<-(u i DWA) + ( 2 OC ) , RETURN; 

U1BUFD2: uiVSCOUNT <- (u iVSCOUNT) -1, DUI.GOT 0(‘ n i ENDFIFLD, u iCONT, R < 0 ] ; ’chock for field done 
uiBUFD2X: uiVSCOUNT <- (ui VSCOUN1 ) - 1, DBLGO TO[ u i END I I El D, u iCONT, IKO |; 
uICONT: u iSI.C*■•(u ISI.C) -1 ,DBLCOTO[u iOCBDOME , uiMDCB2 , R<0] ; 


•Calculate tho next lino’s uiNBUFPTR 
•in the shadow of the last IOIETCH16 
liiMDCB? ; u iNBUFPTR <- 377C; 

T<IDFfuiDBA, 14,4]; 

UiNBUFPTR «- (uiNBUFPTR)-( F) ; 

[> RIIMASK[ u iNWRDS]; 
uiNBUFPTR «- (uiNBUFPTR) (T); 

OUTPUTfuiUUFPTR,uiBPREG], goto[xpreVSO]; 

•Tho DCB is finished. 

uiDCBDONE : DI SPAT Cl If u iMPSTATUS, 5,3] , CAEl.[u iCHKMSG]; 

T< (lilt INK) ; 

u i BASE 1 <■ OC, GOTOfu iCe LNextDCB . AI.U//0] ; 

•The DCB chain is exhausted. 

OUTPUT[uiBUEPTR,uiBPRF.G]; “Send read BUFPTR to the hardware 
T <- 2C, call [uiCheckCorsor]; ’•does TASK return 
gotofuiVSl]; 


uiGetNoxtDCB: 

uiBASE <- T; *T contains ETNK. Set base register to point to next DCB 
OUTPUTfuiBUFPTR,uiBPREG]; •Send read BUFPTR to tho hardware 
uiNBUFPTR <- 37 7C; *Init for later 
nop;*two instr aEter output 
PI ETC II? [ tri BASE , ui DBA , 2 |; “Fetch DBA,SI.C 
uiBUEPTR <- 377C; *Init Eor later 
•Check for long pointer addressing 

PE ETCII2[uiBASE , ui LINK, 0] ; “Fetch Link, NWRDS 
LU‘-ui SEC , goto[u i Long , R<0] ; 

•Short Pointer 

T <- uiDBA; 

iiinASF. <- T,gotofuiEvenOdd]; 


“Long Pointer 
uiLong: 

PFETCII2[u 1BASF., liiBASE, 4]; ‘fetch directly into the base register 
uiSLC (uiSLC) AND NOT (100000C); ‘clear Lhe sign bit 


•Bias uiDCB.Sl.C by -2. Note that if uiDCB.SLC = 0 OR I, at least one 
•scan lino will be displayed. 

uiEvenOdd: LU *- LDFfuiCRWORD,17,1]; ‘Check EvonFleld 
u iSI.C <- (u 1SI.C) - ( 2C) ,G0T0[u iDBAOK, ALU//0] ; 

uiDBABAD: T<- RHMASKf U 1 NWRDS] ; 

u iBASE ( uiBASE) + (T); 

uiDBAOK: T*-LDF[uiBASE, 14,4] ; *Set up NBUFPTR for tho next scan 
uiNBUFPTR *- (uiNBUFPTR) -(T) ; *lliNBUFPTR <- 377C earlier 
T<-RIIMASKf uiNWROS]; 
uiNBUf : PTR<-(uiNBUFPTR)-(T) ; 

•Now fix up the base register so that it is hex aligned and DBA contains the residue 

T <- (uiBASE) and (1/C) ; 

UiDBA «• T; 

uiBASE *• (uiBASE) and not (17C); 

•fix up the higli half of the base register 
T <- T shfuiBASEl, 10] ; 
uiBASEl <- (RHMASK[uiBASEl]) + (T) + 1; 

T<- 2C, califuiCheckCursor]; *returns to VS2 

*We have just picked up a new DCB. Wo must output IITAB, 

•then go to normal state 0 processing. 
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uiVS2: T <- I.DF[u IMVfRDS, 2,6]; ‘calculate I1TAB 

LU‘-Lf)F[uiNWRDS, 1, 1]; ‘black background bit 

u iBUFPTR <■ (uiUUFPTR) - ( T) -1, GO I Of . +2 , ALU//0 j; *uiBUI : Prn <•■ 3770 earl tor 
u 1BUFPTR «- (u i OUFPTR) AND NOT (2000); 

0UTPUT[ti iBUIPTR, ulHTAB] ,goto[u iVSO ]; -send it 


uitNDFIEl.D: uiBASEl < OC; 

uiCRWORD *- (uiCRWORD) xor (3C) . yoto[u1FDl]; 
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‘We have displayed the entire chain and the field is not done. 
"Wait for end of field. 

xpreVSl: r<- 2C, ca 11 [u iChcckCursor]; 

preVSl: call [uiWAKtOFh'l; 

uiVSl: DISPA foil [tiiMPSTATUS, 6,3] ,CALLfuiCIIKMSG’J; 

uiVSCOUMT <• (uiVSCOUNT)-1, G0T0[ui FIELoDONF., 1K0] ; 
gotofxpreVSl]; 


"Turn off wnkeallow and return 

uiWAKF.OFF: uiCRWORD *• (uiCRWORD) AND MOT (200C); ‘AllowWako *- 0 
OU1PUTfuiCRWORD,u iCREG1; 
uiCRWORD <- (uiCRWORD) OR (200C); 
uiBUFPTR <- 377C; "set up for next run. 

* OUTPUTf ui CRWORD , uiCRF.G |, re t urn ; 

OUTPUT[uiC RWORD,uiCREG]; 

Outputwait: 

nop; 
rotu rn; 

•Check for cursor visible. Filter with T=2. 
uiCheckCursor: 

uiCY<-(uiCY) -(T) ,COTO[u iCURRET, R> = 0] ; 
uiCX 1 - (uiCX) 1 ( 1000C); 

I.U <- LDF[uiCX,3,l]; 

GO IO[ 11 i SENDCX, AI.U -0 ]; 

uiCX <• 5C; "finished displaying the cursor 

uiCY *- 10000C; 
uiSENDCX: 

0UTPUT[u iCX, uiCXRFG ], go to[Outpiitwa i t’|; 
uiCURRII: return; 

"flie field is finished. Make Vsync pulse, 
ui FIFt.DDONE: 

uiCRWORD <• (uiCRWORD) XOR (3C); ‘complement field, set PreVS. 
uiFDl: uiBUFPTR <- 200C; 

‘send black background so that hsync won't bo screwed up 

OU [ PUT [ u i BUI PT R, 11 i Ilf AB J , cal 1 [u iWAKEOFF ] ; ‘returns to uiVS3 
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•We aro in tho first scan lino of a vertical sync pulse. 

‘Post, tlio inouso COORDINATES to core. 
lliVSS : ll iBASE <- OC ; 

r» (uiHUFPTR)+(25C); *42'lb AND 426b ■- Mouse x mil y. 
PFETCll2[uiDASE, j i DDA J; ‘uiDfJA and uiSLC are used as temps . 
DISPATCH[u i MPSTATUS .5,3], CALLfu i C UK MSG \; 

u i MOUSED! LXY <- !.CY[u iM0U3E0ELXY.il] , 0Q1..S0T0[ u I SEMI, ui NSEM1, R<0]; 

uiSEMl: T <- 1 77C, GOTO[ui SEMI FIN ]; 
uiNSEMl: T <- (ZERO)-l; 

u iSEM IF IN : T<- ( LDF [uiMOIISEDELXY . 7 , 7]) XNOR (T); 
uiDBA <- (uiOBA)i(T); 

T*-uiMOUSEDELXYH DF[u iMOUSEDELXY , 0,7] , DDLCOTO[u iSEMZ , u i NSEM2 , IKO] ; 

uiSEM?: T *- (uiMOUSEDEl.XY) XNOR (177C); 
uiNSEM2: uiSlC ( u i SIX ) > (T) ; 

T<- (uiBUFPTR) i (25C); 

PST0RE2|u iBASE , u iDBA7]; ‘Res tore coordinates 
uiMOUSEDELXY <- (ZERO), call [uiWAKF.OFF]; ‘returns to tiiVS4 
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•Post the mouse HUTTONS 

uiVS4: 11 iBASE*-177000C; *NOTE modification of uiBASE 
uiBASE*(uiBASE)>(30C); "Fetch 177030 

PEETCII1[ 11 iBASE , u iOTEMP , 0] ; ‘uiQIEMP overlays LINK, NWRDS, DBA, SLC. 
DTSPA IC!![u iMPS IATUS, 5,3]', CALL[ liiCHKMSG ] ; 

•convert. IJTFP mouse button order into ALTO order 

•On the UTFP, the sentience for the buttons (BUTTONS[13:16 |) is right, 

•middlo,Ieft, and I's mean buttons depressed. 

•On the AITO, 17 7 030 ]T 16:17] correspond to i eft, right., middle , and I's 
•in memory moan button NOT depressed. 

t.<- i d f[ui BUTTONS, 13,1] ; ‘right button 
uiTEMP <- t; 

t <- 1 dT|'u iBUTTONS, 14,1]; *middle button 
u i TEMP <- ( lsh[u iTEHP , 1 |) or (t); 
t <- (uiBUlfONS) and (4C); "loft button 
t. *• (11 iTEHP) or (t); 
uiQTEMP <- (11 iQTEMP) or (70 ) ; 
t <- uiQTEMP •- (u iQTEMP) xor (t); 

• ignore 11 iQTEMPl and uiQTEMP2 
uiQTEMP3 <- t. ; 

non; * wait Tor write of register 

PS TO ii E 4 r u i BASE , ti i QT F HP , 0 ] ; 

uiBASE • /.EBO; *resct base register 


•Eetcli new deb chain header and interrupt mask. 

T 1 (uiBUI Prt!) < (21C) ; •Tt-420, Since 11 iBUEPi R-3 7 7. 

PFETCII2[ 11 iBASE , 11 i L INK] ; *Got new deb header from 420, intmask from 421 


•check for realtime clock update 
•save STKP 

• 11 i T EMP <- 325C ; ‘Point to BTCLOW 

uiTEMP 355C; ‘Point to RVCLOW 
T<- 11 S r KP ; 

STKP <- uiTEMP, uiTEMP *- T , No Reg I Lor. kOK; 

uiTEMP * (uiTEMP) XOR (37/C); *STKP read inverted 

STACK *(STACK) AMD NOT (IO0000C),GOTO[uiNOR fCUV,R> -0]; 

•must update RTC 

uiTEMPl*400C; 
r«-(uiTEMPl) + (30C) ; 

PF ETCH l C11 iBASE , ui TEMPI ] ; 
uiTEMPl <- (u i TEMPI) + 1; 

PSIOREl] u iBASE , uiTEMPl |; 

•cause vertical field interrupt 
uiNORTCOV: STKP *- uiTEMP; 

loadpage[OJ; 

T < uiNWRIJS, cal I p[DoInt]; * interrupt mask fetched from 421 above 
uiNOEMR: cal I[uiWAKEOFI ]; ‘Returns to uiVSb 
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"Post the keyboard 

u iVS0 : Hi <- LHMASKfu iXHSG ], call[uiKPOST]; 

In <■ LHMASKf u iXMSG], cnllfuiKPOST]; "do it aga in for other byte 
D.TSPATCHfuIMPSTATUS.6,3 |,CALLfu iCHKMSG]; 

51 iBASE <- ZERO, GOTOf p 10 VS 6 ] ; 

uiKPOST: 

u i TEMP *■ KcyTab loti ,goto[ . +2 , al u//0]; "if no data, return r i g tit away 
uiXMSG <- 1 shfuiXMSG , 10], return ; "shift to other keyboard char 

11 iTEMP <- (illTEMP) or (KcyTab 1 el); 

t *■ 1 df [uiXMSG , l, 6 ]; "Got word number (4 bytes per word) 
ulTEMP <• (ulTEMP) " (T); "Torm f inal address 
t <• I df [u iXMSG , 6 ,1 ]: '"sot h2 to higli/low word 
APC&APCTASK <- ulTEMP; "Address to read in Control Store 
PEADCS; "get the word 

t <■ CSDATA, AT[uiUlTPliASEADDR, 300]; "must be at ail oven location for READCS 
1.1 i DBA <- t; 

lu *- LDFfiiiXMSG , 7 , l'|; " low or high byte 
go to[ . "2 , al u//0 |, uiBASE <- 17/0000 ; 

11 iDBA •- KSH[u iDBA, 10]; "Need upper byte 
uillASE <• (uiBASE) r(34C) ; "uiBASE <- 177034C 
f< (LDI f u i DBA , 10,3 ]); "Got word number 

PKETCII1 [uiBASE, uiNWI1DS]; "uiNWRDS is a temp - fetch A l to kbd word 

11 iDBA <- LDFfuiDBA,11,4]; "Get b it number 

uiBASE <- (uiBASE)i (T); "fix base register for store 

U i TEMP «- T <- IO0000C ; "Do the function u i TEMP <- 100000 rshift 11 i DBA 


11 iDBA < 

- RSH[LliDBA , 1] , gotof. 

i7,REVEN]; "test 

b i t 

to 

11 i I EMP 

<- T <- RSH[ 11 iTEMP , 1 |; 

"shift 1 



uiDBA < 

■ RSlifu iDBA,1], gotof. 

.+2.REVEN]; "tost 

b i t 

14 

uiTEMP 

<• T <- RSIIf U il EMP , 2] ; 

* s li i f t 2 



11 iDBA < 

■ RSlifu iDBA, 1 |, gotof. 

1 2,REVEN ]; "test 

b i t 

13 

uiTEMP 

<- T <- RSlifu iTEMP , 4] ; 

"shift 4 



11 iDBA < 

RSIIf u iDBA , 1] , gotof . 

1 2,REVEN]; "test 

b i t 

12 


ui TEMP <- T «- RSIIf u i TEMP , 10 |; "shift U 


uiKDD: "tost for key down (0) or up (1) 

uiXMSG < I s hfu i XMSG , 10] , DBLG0T0[ 11 i KDOWN , u i KUP , r> = 0] ; 

uiKDOWN: uiNWRDS <- (uiNWRDS) AND NOT (T), GOTO[u i KSTORF.]; "key down, clear bit 

uiKUP: uiNWRDS <■ (uiNWRDS) OR (T); "key up, set bit 

uiKSTORE: gotofuiMSGRTN1],PST0REIfuiBASE,uiNWRDS,0] ; "store word 

prcVSG: uiBUFPTR «- 377C, cal 1 [uiWAKEOFF]; "returns to U'iVSO 
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“Set up tlie cursor. 

’"Get cursor coordinates from 426b (X), and 42/b (Y). 
u i VSG : T < (u i BVJFPTR) + (2 7C); •uiBUFPlR = 37/ on entry. 
PFETCH2[u 1BASE , u iCX'|; ‘Cursor X,Y coordinatss 
DT3PATCII[uiMPSTATUS. 5,3] , CALl.[u iCIIXMSG]; 


‘"Experiment has determined that the cursor is 3 nibbles to the left 
"and one scan line below its proper position. We fudge... 
uiCY <- (uiCY) +1; 
uiCX (uiCX) + (14C); 

•Tho even scan lines of the cursor will be displayed if CY is oven 
"and the field is even, or if CY is odd and the field is odd. 

•Otherwise, the odd scan linos will bo displayed. 

uiBUFPTR <- (uiBUFPTR) "(37C) ; *u1BUFPTR <- 43 lb 

"The cui'sor X counter is loaded by IISF from CXREG. It is 
"clocked by [(EdgoC'lock and SolCursM) or (NClk and (IISF or VS’))]. 

•When tho cursor is visible, -X is loaded into the CXREG in the 
•scan line preceding the cursor, and this value is loaded into 
•tho cursor counter by IIS. When VS=0, tho cursor counter is 
•incremented by NClk, and when it becomes 0, the next b nibbles are 
•sent to the display. 

•Here, wo want the cursor counter to address the cursor memory so 
•that wo can load it. We send 0 to CXRF.G, and during each of tho 
•next tl scan line times wo will send 5 bytes of cursor data to the 
•memory, then send a now segment value to uiCXREG. 

•uiVSCOUNT is used to hold the value to be loaded into uiCXREG. 
uiVSCOUNT <- 1000C; ‘Start load at segment 1. 

T<-1 DF[uiCRWORD, 17 ,1] ; "flow finish setting up the pointer to tho 
•cursor area in main storage. 

T<- ( LDF[u iCY, 1 /, 1] ) XOR (T) ; 

T<- ( u iBUFPTR ) +T; 
uiDBA <- T, goto[uiMORECSETUP’!; 
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uiMORECSETUP: OUTPUT[u1 VSCOUMT, u 1CXREG], cal 1 [u iWAKF.OFF] ; 

‘Load ono segment of the cursor memory (5 bytes plus one zero byte). 

‘The address was set up during the previous scan line, 
uiVS7 : T «- 11 IDBA; ‘Pointer to cursor segment 
PFFTCIH[uiflASF., 11 ITEMP] ; ‘Fe tch segment 
DISPATCIIf u iMPSTATUS,5,3],CALLfuiCMKMSG]; 

uiDBA *■ (11 iDBA) *-(2C); ‘Increment pointer (by 2 due to interlace) 
i)ISPATCII[uiCX, 10,2) j ‘Determine amount to shift word. 

DtSP[liiSHCOj , u iTEMPl <- 17C; 

‘Subroutine for loading the cursor memory: 

uiSENDCUR: uiNWRDS <■ T, usectask; ‘uiNWRDS is a temporary, not used during VS. 

OUTPUTfuiNWRDS,uiCURSM], return; 

liiSHCO: T <- OC. GOTO[u iSHCDONE'J, AT(u iSIICUR, 0] ; 
tiiSHCl: T LSII[u iTEMP, 3"|, AT[uiSHCUR. 1] ; 

uiTEMP < RSIIf u i TEMP , 1], G0T0[uiSIICD0NE'|; 

11 i SI 1C2 : fH..SH[ u iTEMP, 2 ‘|, ATfuiSHCUR,2] ; 

uiTEMP <- RSHfuiTEMP,2], GOTOfui SIICDONE |; 
uiSHC.3: T - LSlIfu i TEMP, 1] , AlfuiSIICUR, 3]; 

u i TEMP <■ RSIIfti iTEMP , 3 j , GOTOfu iSHCDONE]; 

ui SHC DO ME : ill TEMPI <- ( u iTEMPl) AND (T) ; 
uiCNT < 2C; 

ui SENDCLOOP: T< LDFf u iTEMP . 0,4 |, CAl.Lfu i SENDCUR] ; ‘loop for first 4 bytes 
uiCNT <- (uiCMT)-l, GO rofu iDONF.CUR , R<0] ; 
uilF.MP . LSilf u ITEMP, 4 ), COTOf u iSFNDCLOOP j : 

uiDONECUR: OUTPUTfuiTFMPl, u iCURSM]; ‘Send 5tli byte. 

I IP FDF [u iVSCOUNT ,3,1); 

OU1 PUir u iTEMP , u iCURSM] , GOlOf uiCSETUPDOME , ALU//0]; ‘TFMP is 0 (6th byte) 

uiVSCOUNT <- (uiVSCOUNT) r(1000C),GOTOfuiMORECSE(UP]; ‘Increment segment address 

uiCSFTDPDONE : T«- LDFfuiCX, 6,10 |; ‘CX counts nibbles, not bits 

uiCX (ZFRO)-T; ‘And it is negated. 
l.U< ii iCRWORD, golofuiCSDONE, ROOD]; ‘Test field 

II iCY< (11 iCY ) - (1C ) ; 

u iCSDONF : ui VSCOUNT<-6C ; 

OUTPUT [uiVSCOUNT, u iCXRCG ] , cal I [u iWAKF.OFF]; ‘returns to uiVSIO 
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*We are in the last scan line of a vertical sync pulse. 
*Set up uiVSCOUNT for ttic next field. 

HiiLXNK has rv420, fetched during VS4. 

u i VS 10: uiCRWORD *• (uiCRWORD) AND NOT (2C); * Pro VS *- 0 
OUTPUTfu i CRWOtlD, u iCREG]; 
tliDUFPTR <- (iMBUFPTR) OR (100000C); 

III <■ LDF['ll iCMWORD ,17,1]; 

T ♦- uiLINESPENFIELD,DGI.GOTO[u1EVX,uiOOX,ALU-0'1; 
tiif.VX: uiVSCOlINT T, fiOTOfu iDCODOtir.]; 
tii 00X : ui VSCOUNT <- (ZERO) + (T) H, GOTOf uiOCBDONE] ; 


ondf u I task ]; 
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Tit'lefXWDefs]; * Definitions for Xerox wire m i c roc ode 


* Last modified by Murray on September 15, 1979 12;03 PM 

* Base reg changes 

* modified by Murray on September 13, 1979 7:47 PM 

* modified by Chang on August 22, 1979 6:00 PM, move Timor's regs & CSB 

* modified by Chang on August 10, 1979 8:18 AM, He-Change CSB 

* modified by Chang on August 3, 1979 12:00 PM, Change CSR Assignments 

* modified by Chang on June 25, 1979 9:36 PM, EONotif,y2 1 344 

* modified by Roy Ogus on June 13, 1979 12:25 PM 

SET TASK [0]; "For R addressing 


% 

* Defs in GiobalDofs 

SetfEITask, *]; * Wire input tusk number 

SotfEOTa.sk, *]; * Wire output task number 

Set[E!Task2, *]; * Wire input task number (second controller) 

Set[EOTask2, *|; • Wire output task number (second controller) 

SotfEEPnge, *]; * Emulator (for SIO) page number 

SetfEIPage, *j; * Wire input page number 

SelfEOPage, *]; * Wire output page number 

X 


"Dispatch table locations 

Set[EFBase, LSHIFT[EEPage, 10]]; 

SotjCFSTOLoc, ADD [EFBase, 120]]; * Dispatch location for SIO (bits 16, 17) 

Solf.EE2SI0l.oc, ADD [EEfiase, 140]]; * Dispatch location for SIO (hits 14, 15) 

* Note following def in GiobalDofs: 

"Sot[RS232S1OLoc, addfLShift[FFPago,10], 370]]; 

"Address constants 

Self EIStartLoc, ADDfLSHIFT fl-IPage, 10], 160] |; 

Setf COStartLoc , ADD[LSIIIFT [I.OPago, 10], 130]J; 

Sol.fllSLarl.Loc2, ADD| LSIIIFI |EIPago, 10], 164]]; 

Se tf FOSla rlLoc2 , ADD j I.S1I [FT [ttlPago, 10], 134]]; 

SetfLOI imerDonel or,, ADD[LSII1IT fEOPage, 10], 110]]; 


Input notify location 
Output notify location 

* input notify location 

* Output notify location 
Output TimeiDone notify location 


♦ Use to write state rrom Task 0 
MC[XOWri testate ,OROf LSI-1 IFT[ EOTask , 4] , 0 j] ; 

MC [ XIW r i t o S t a t e, 0 R @ j' I SI 11 F T f E I T a s k , 4 j, 0 ] ] ; 
MCfXOWritoStato2,OR0[LSIIIFT[E0rask2,4] ,0]]; 
MC[ X IWr i tcStato2, OR0[ I.SIII FT[ 11 fask2,4] , 0]]; 


* Constants to define microcode 
MCf A 'ItoE the rMask, 7 7 400]; 

MC f F t ho rIOCBMask, 37400]; 

MCfXWirelOCBMask, 5/400]; 


type. Mask used for SIO return. 

* Alto Ethernet emulation 

* Ethernet hardware IOCB microcode 

* Xerox Wire hardware IOCB microcode 


* I/O Address Registers 
Sot| XlData, 3]; 

Sutf F files t, 1]; 

SetfXWSlatus , 2 ); 

Se tf XOData, t]; 

Sot[XWReadState, 2]; 

SetfXWWriteState, 6]; 

* REGISTER definitions 

* See XWTask.mc for description of register usage. 

* These are task specific registers, 

* there is an identical set for input and output task. 

* Note: reg. 0 and 1 used by Dolnt. 

RVf 111 it ia l CSB, 0]; * CSB pointer passed in this reg from in i t i al i ze . me 
RVf XW Temp , 2]; 

RVfXWCompietion, 3]; * Not used very often 

RV[XWIndex, 4]; * Quad word fetch 

Rvfxwcount, 5]; * These must match the layout in the IOCB 

RV[XWPtr, 6]; RVfXWPtrlli, 7]; 

RVfXWIOCB, 10]; 

RV[XWIOCBUi, 11]; 

RV[XWCSB, 12]; 

RVf XWCSRII i, 13]; 

Rvfxwrempl, 14]; RV[XWTomp2, 15]; RV[XWTemp3, 16]; RV[XWTemp4, 17]; 

* Register definitions for first 4 words of CSB (overlay others) 
RV[XWCSB1, 4]; RVfXWNextlOCB, 5]; RVfXIHALo, 6]; RVfXIHAUi, 7]; 

* State Register command words 

MCfXWSetPurgeMode, 260]; * Sets: Enable Input, PurgeMode 
MCfXWSetOutputF.OP, 107]; * Sots: Enable Output, OutputEOP, JamEnable 
MCf'XWEnablelnput, 220]; * Sets: Enable Input 

MC j XWF.nabl eOutput, 103]; * Sets: F.nable Output, JamEnable 

MCfXWDisabloInputOutput, 300]; * Clears: Input and Output 

MCfXWDisabloInput, 200]; * Clears: Input state register 

MCfXWDisableOuLput, 100]; * Clears: Output state register 

MCfXWPream, 252]; * Xerox Wire preamble 


* Input data 

* Host ID (Ethernet only) 

* Status/State register 

* Output data 

* State register read 

* State register write 


"Status bit definitions: as read with Read State/status command. 


* Status bits (Ethernet) 
SET fXSIJam, 100000]; 

SET f XSOURun , 40000]; 

SET fXSIORun, 20000]; 

SET f XSOCOLl., 10000]; 

SET [XSICRC, 4000]; 

SET [XS0FAULT, 2000]; 

SF.T [XS0PAR, 1000]; 

SET fXSIBA, 400]; 


* Receiver-detected collision (Jam) 

* Output Underrun 

* Input overrun 

« Transmitter-detected collision (Collision) 

* Input Bad CRC 

* Output Data Fault 

* Output Bad Parity 

* Input Bad Alignment 


MCfXISMASK, OROfXSIJam, XSIORun, XSICRC, XSIBA]]; 


Status bits reported for input command 
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MC[XOSMASK, GH0[XSOURun, XS0C01.L, XSOFAULT, XSOPAR'J'j; " Output Status bits 

MC[XOCol1isionMask, XSOCOLLj; 


* Status bits (Xerox Wire) 
SFT [XXSIBA, 100000J; 

SET [XXSIORlin, 40000]; 

SET |XXSIJam, 20000]; 

SET [XXSICRC, 10000]; 

SET [XXSOPAR, 4000]; 

SET [XXSOURlin, 2000]; 

SET [XXSOCOLL, 1000]; 

SET [XXSOFAULT, 400]; 


Input Bad Alignment 
Input overrun 

Receiver-detected collision (Jam) 

Input Bad CRC 
Output Bad Parity 
Output Underrun 

Transmitter-dotocted collision (Collision) 
Output Data Fault 


MC[XXISMask, OROfXXSIJam, XXSIORun, XXSICRC, XXSIBA]]; * Status bits reported For input command 
MC[XXOSMask, OR0[ XXSOURun, XXSOCOI..L, XXSOFAULT, XXSOPAR]]; * Output Status bits 
MC[XXOCol1isionMask, XXSOCOLL]; 


* Completion codes 
MCfXWGoodPackot, 040000]; 

MC [XWEr ro rO adHWPk t , 0 70000]; 
MC[XWE rrorZoroUuf, 064000]; 
MC[XWPktllu FOvorrun , 001000]; 
MC[XWEr rorCountOV, 062000]; 


On input (longth<3) and output (length-0) 
Input only 
Output only 


* Timer definitions 

Set [ XWT iinerRunni ng, 0]; * State 5 is simple timer 

Set | XVII imerldle, 4]; * State 4 is idle 

HCf XWTime (Mask, USUI FT [XWF iinorllunn ing , 14]]; 

MC[XWIdlei imer, I.SHIFT [XWT imerld lo , 14]];' 

MC]pXWRandomReg, 377]; * Number of random number (REFR register) 

MC[pEONot ifyReg, 340]; * Register used for timer notify 

MCI pEOMot i f.yRog2, 344]; * Register used for timer notify (second board) 


* Indices into blocks 

* IOCB's 

MC[XW[ndexNoxt, 0]; * (Short) Pointer to next IOCB 
MC[XWIndoxIransInt, 1]; * Retransmission Mask 
MC[XWIndexCompletion, 3]; 

MC[XWIndexBuffor, 4]; * tong pointer and length (Quad word aligned) 

* CSB's 

MCfXWIndexileader, 0]; * First 4 words of CSB 
MC[XWIndexPtr, 1]; * Pointer to current IOCB 

MC[XWIndexWake, 4]; * Wakup Bitmask 

MC[XWIndoxNoICBCount, 5]; * Count of times when no ICB chain (For test, only) 

MC[XW1ndexScratch, 10]; * Quad word scratch area 

* MACROs: The attn on the XW i re is backwards to avoid the BranchBurp 
M@[ $Sk i pNOATTEN , IFEG>[XWi re, 0, SKI PfNOATTF.N] , SKIP[IOATTCN] )] ; 

M@[$Go To IOATTEN, IFE@[XWire, 0, GOTO[//l, IOAITEN], GOTO[//l, HOATTEN]]]; 
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inse rt.[dO 1 ang] ; 

MOMIDASIHIT; L. ANG VERSION;MULTDIB; 
insei't[GlobalDcfs |; 
inse rt[XWDefs]; 

tvt.le|;XWIn It]; 

‘Last modified b.y Murray on September 15, 1970 11:22 AM 

* Merge in XWInit2 and Base Register cbangos 

* modified by Murray on September 14, 1979 12:43 AM 

* modified by Boy Ogus on June 13, 1979 12:27 PM 

■"For register addressing. This code actually runs at the assigned task level. 
SET TASK [0]; 

* ETHERNET controller INITIALIZATIOM. 

* Will only be called if there is an Ethernet board in the machine. 

* Head Ethernet ID from hoard and form constant to be returned by SIO. 

* Setup Notify value in EONotifyReg 

ON PAGE [EtherlnitPage]; 

Xllnit: CALL [XWSetup], XWTemp <- pEHostRegx, AT[E the rIninit Loc]; 

Inputf'Stack , Elllos't j; 

Stack <■ (Stack) AND (377C); * HostNumbor in right half 

Stack *- (Stack) OR ( IFE@[XWire, 0, EtherlOCBMask, XWiroIOCBMask |); 
RETURN, Stkp «- XWTemp4; ‘restore Stkp 


XOInit: CALL [XWSetup], XWTemp <- pEONotifyReg, AT[EtherOutlnitLoc]; 

* Compute value for EONotify register, used for notify after timer wakeup. 

XWTemp «■ AND0[O377, EOTimerDoncLoc |C; * Low 8 bi ts of ARC 

XWTemp (XWTemp) OR (ORQ[lshif L[EO Task,14], ANDS[ 74 00 , EOT imcrDoncLoc]|C); * High 4 bits of APC 


I >■ XWTemp; 

Stack <- r; 

RETURN, Stkp <- XWTcmpd; ‘restore Stkp 


‘ Second Board 

XIInit2: CALL [XWSetup], XWTemp *- pEHostRegx, AT[EthcrlnlnitLoc2]; 

RETURN, Stkp <- XWIempi; ‘restore Stkp 


XOI 11 i 12 : CALI. [XWSetup], XWTemp <- pEONotifyRog2 , AT[ E llierOut In i tLoc2 ]; 

* Compute value for EONotify register, used for notify after timer wakeup. 

XWTemp <- AND0[O3/7, EOTimcrDonel oc]C; * Low 8 bits of APC 

XWTemp < (XWTemp) OR (0I1U[ 1 slii I l[ EOTask2 , 14 |, AND(?[ 7 400, LOT ime rDonol.oc ]JC ); * High 4 bits of APC 
f < XWTemp; 

Stack <- T; 

RETURN, Stkp < XWTemp4; ‘restore Stkp 


XWSetup: 

I »- InitialCSB; 

XWCSIi <- T; 

XWCSBHi <- 0C; 

XWIOCBIIi <- 0C; 

T - G E f RSPEC[ :103] xor (377C); ‘Stkp (inverted) 
UseCTask, XWTomp4 <- T; 

RETURN, Stkp <- XWTemp; 

ond[xwi re ini t]; 
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1nsert[d01ang]; 

NOMTDASINIT; LANGVERSION ; MULTDIB; 

insert[GlobalOefs]; 

insert[XWDefs]; 

t1tle[XWInlt2]; 

*l.ast modif ied by Roy Ogus on June 22, 1979 3:55 PM 

SET TASK [0]; *101' register addressing. This code really runs at task level EITask 

* ETHERNET controller INITIALIZATION. 

* Hi is subroutine is for the second controller board (executed by EITask). 

* Will only bo called if there is a second Ethernet board in the machine. 

* Will only be called after init of first controller (which sot host address). 

* Initializes the notify register. 

ON PAGE [EthorlnitPago]; 

XWiroIni t?: T «- GETRSPF.Cf 103] xor (377C), at[EthorlnitLoc? j ; "Stkp ( Inverted) 

* Compute value for EONotify? register, used for notify after timer v/akoup. 

XWDase <- AND0|0377, EOTimorDoneLoc]C; * Low 8 bits of APC 

XWBase (XWBaso) OR (0RQ[1shif t[LOTas k2,14],AND@[ 7400, EOTimerDonol.oc]]C); * High 4 bits of APC 

XWllaselli *■ pEONot i f.yReg2 j 
Stkp < XWBasell i , XWllaselli *- T; 

T <• XWBase; 

Stack *- T; 

RETURN, Stkp <- XWllaselli; '"restore Stkp 

"Note base registers are initialized each time input or output is disabled, so we 
*do not need to do it hero as long as input and output are disabled before enabled. 


end[ xwi rcini t2] ; 
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insert[d01ang]; 

NOMIDASINIT; I.ANGVERSION ;MULTDIB; 
insertfGlobalDofs]; 

Inse rlj XWDefs]; 

riTI.F. [XWSIO]; * Xerox Wire microcode (Defs in XVJDofs) 

* Written by Roy Ogus. 

% 

Last modi Med by Roy Ogus - June 13, 1979 12:31 PM 

Notes: - This version handles 1 Ethernet or 1 Xerox wire board. 

- Tills module has SIO code for XWire. 

- Contains Conditional assembly. 

XWire=0 for Ethernets, XWire-t for Xerox Wire boards. 

Log: - File reorganization (January 15, 1979 11:23 AM). 

- Conditional assembly (February 4, 1979 5:30 PM). 

- Upgrade to 3.0 (April 12, 1979 5:14 PM). 

X 

SET TASK [0]; 


* EMULATOR TASK -- SIO Instruction 

ON PAGE [EEPuge]; 

♦This code executes at task 0 

* Wc get here after the SIO instruction has been issued. 

* The SIO control bits are in ACO. 

* Two board format (using IOCBs): 

* SIO bits 16, 17: Board t. 

* 0 - NOP 

* 1 Disable output (TPC is initialized). 

* 2 - Disable input (TPC is i 11 i t.ia I ized) . 

* 3 - Disable board 1 (TPC not initialized) 

* SIO bits 14, 15: Board 2. 

* 0 - Unused (NOP) 

* 1 - Disable output (TPC is initialized) 

* 2 Disable input (TPC is initialized) 

* 3 Disable board 2 (TPC not initialized) 

* Note: I1S232 SIO bits are 10, 11. 

* To enable boards, use OUTPUT[Command, StateRegister]; 

* Board 1 : StateReg is tori = LSIII FT[ EOTas k, 4]/ 

* Board 2 : StateReg i s ter2 - LSI! I FT [ EO Task2 , 4). 

* Commands: 

* F.nableOutput = 103(1. 

* Enablelnput = 220B. 

* SIO returns (in ACO): 

* AC0[0;2] - 3 - Alto-emulation Ethernet microcode 

* - 2 Xerox Wire hardware, IOCB microcode 

* = t - Ethernet hardware, IOCB microcode 

" AC0[ 3 : 7 I - 3 70 

* ACOf IOB: 1711] = Host number (Ethernet) 

* (Interim) Controller Status Blocks: 

* Board 1: OCSB at 177200B, ICSB at 177220B. 

* Board 2: OCSB at 177240B, ICSB at 177260B. . 

* This code is really part of the emulator, and uses its temporary registers. 

* RIIMPl - 1 if called from Mesa, 0 if called from Nova. 

Get host address constant for Ethernet. 

EESIO: ACO <- f, at[EEStartLoc ]; ‘save control bits (useful only if called from Mesa) 

* RS232 SIO command. 

T *■ LDFfACO, 10,2'J; * RS232 SIO bits are 10, 11 

RTcmp <■ AND0[377 , RS232SIOLoc ]C ; 

RToinp <■■ ( RTemp) OR (0R@[LSHIFT[16,14 ), AND@[007400 , RS232SI0Loc ] |C); 

REcinp «- (RTemp) OR (T); 

APC&APCTask «- RTemp, CALL [XETaskRet]; 

* Return; 

* End RS232 SIO command. 

T <- 3 7 C ; * check bits 3:7 

T <- (1 df [ Elios t Reg , 3,5]) xor (T); ‘these bits will be 3/b if the init code was run 
*(i.e. if there is an Ethernet board iri the machine), and will be zero otherwise 
T <- EHostReg, goto[EESIODisp,ALU-0]; 

ACO <- 0C; 

ACO «- (ACO) xnor (100000C),goto[EESI0Dono]; ‘return 77777b in ACO if no Ethernet board 

* First Ethernet board (Dispatch on bits 16,17): 

EESIODisp: DISPATCH [ACO, 16, 2]; 

DISP [EESIOOJ, ACO <- T; * This line when only one controller 

* 00 Do nothing. 

EESIO0: lu <- RTEMP 1, dl)1goto[EEMesaRet, EF.NovaRet, Rodd] , AT[EESIOI.oc, 0); 

* 01 -- Disable output. 

* Form APC&APCTask word to notify the output microcode 
F.ESI01; RTEMP <- AND@[0377, EOSta rtLoc]C, AT[EESIOLoc, 1]; 

GOTO [EESIONotIfyj, RTEMP <- (RTEMP) OR (0R@[1shift[EOTask,14],AND@[007400, EOS tartLoc]]C); 

* 10 -- Disable Input 

* Form APC&APCTask word to notify the input microcode 
EESI02: RTEMP *- AND@[0377, EIStartLoc]C, AT[EESIOLoc, 2]; 

GOTO [EESIONotifyj, RTEMP <- (RTEMP) OR (0R@[1shift[EITask,14],ANDS [007400, EIStartLoc]]C); 

* 11 -- Disable Input and Output (TPC not initialized). 

EESI03: G0T0[EESI0Abort], RCNT <- XWDisabielnputOutput, AT[EESIOLoc, 3]; 

* Notify appropriate code (disable done by the task code). 

EF.SIONoti fy: CALL[XETaskRet] , APC&APCTASK <- RTEMP; 


Return here when emulator runs again. 
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EESIODone: lu <- RTEMP1, dblgoto[EEMesaRst, EE Nova Rot, Rod 1 1J ; ■ 

EENovnRot: 1oadpage[nePagfi]; 

FF1@[17], gotop| ncNoskipj; 

EEMosaRet: loadpago[ 7‘J; 

gotop[P7Tail'J; 

j' 

* Used for tasking. 

XETaskRet: RETURN; 


* Codo for STC[3]. Disable input and output on boards. 
EESIOAbo rt: T XOWSlate; 

GOTO [EESIODono], OUTRUT[RCHT] ; 

EMD; 
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* modified by IIGM - September 6, 1979 7:34 AM 

inse rtf c!01 nng]; 

NOMIDASIMIT; LANGVF.RSION ; MULTDIB ; 
insort[GlobalDefs]; 
insertfXWDefs]; 

TITLE [XW2SX0]; * Xerox Wire microcode (Defs iri XWircDefs) 

* Written by floy Ogus. 

% 

Last modified by lioy Ogus - June 22, 1979 4:15 PM 

Notes: - This version handles 2 Ethernets or 2 Xerox wire boards. 

- This module has S10 codo, and extra code for 2nd controller. 

- Contains Conditional assembly. 

XWiro=0 for Ethernets, XWire=l for Xerox Wire boards. 

Log: - Pile reorganization (January 15, 1979 11:23 AM). 

- Conditional assembly (February 4, 1979 5:30 PM). 

- Upgrade to 3.0 (April 12, 19/9 5:14 PM). 

X 

SET TASK [01; 


* EMULATOR TASK -- SIQ instruction 

ON PAGE [EEPagoj; 

’"This code executes at task 0 

* We get here after the SIO instruction has been issued. 

* The SIO control bits are in ACO. 

* Two-board format (using IOCBs): 

" SIO bits 16, 17: Hoard 1. 

* 0 - NOP 

* 1 •- Disable output (TPC is initialized). 

* 2 Disable input (TPC is initialized). 

* 3 - Disable board l (TPC not initialized) 

* SIO bits 14, 15: Hoard 2. 

* 0 Unused (NOP) 

* 1 Disable output (TPC is initialized) 

* 2 Disable input (TPC is initialized) 

* 3 - Disable board 2 (TPC not initialized) 

* Note: I1S232 SIO bits are 10, 11. 

* To enable boards, use OUTPUIfCommand, StateRegister]; 

* Board 1 : StateReg is terl = LSI IT FT[ EOTas k, 4], 

* Hoard 2 : StateReg istor2 - LSIIIFT[EOTask2, 4‘j, 

* Commands: 

* EnableOutput = 10313. 

* Eiiablelnput = 220B. 

* SIO returns (in ACO): 

* ACOfO] - 0 - Alto-emulation Ethernet microcode 

* AC0[l:2j --3 - A1 to-einu I at ion Ethernet microcode 

* - 2 - Xerox Wire hardware, IOCB microcode 

* = 1 Ethernet hardware, IOCB microcode 

* AC0[3 : 7] = 37B 

* AC0[10B:17B] = Host number (Ethernet) 


* This code is really part of the emulator, and uses its temporary registers. 

* RTEMP1 = 1 if called from Mesa, 0 if called from Nova. 

* Get host address constant for Ethernet. 

EESIO: ACO <- T, a t[ EESta rtl.oc] ; "save control bits (useful only if called from Mesa) 

* I1S232 SCO command. 

T < LDFfACO, 10.2]; * RS232 SIO bits are 10, U 

RTemp <- AND0f3 77, RS232SIOLoc]C; 

RTemp <- (RTemp) OR (OR0[LSIIIFT[ 16,14], AND0[ 007400 , RS232SI0Loc]]C) ; 

RTemp <- (RTemp) OR (T); 

APC&APCTask <- RTemp, CALL [XWRoturn]; 

* End RS232 SIO command. 

* Check bits 3:7, They will be 37b if the init codo was run 

* (i.e. if there is an Ethernet board in tho machine) 

* and will be zero otherwise. 

T *- 37C; 

T «- (ldf[EI lost Reg ,3,5]) xor (T); 

T <- EHostReg, goto[EESIODisp,AIU=0]; 

ACO 0C; 

ACO <- (ACO) xnor ( 100000C),gotof EESIODone]; 

* Return 77777b in ACO if no Ethernet board 

* First Ethernet board (Dispatch on bits 16,17): 

EESIODisp: 

DISPATCH [ACO, 16, 2]; 

* DISP [EESIO0], ACO <- T; * This line when only one controller 

DISP [EESIO0]; * This line when more than one controller 

* 00 -- Do nothing. 

EESI00: GOTOfEE2SIOA], DISPATCH [ACO, 14, 2], AT[EESIOL.oc, 0]; 

* 01 -- Disable output. 

* Form APC&APCTask word to notify the output microcode 
EESIO 1: RTEMP <- AND@[0377, EOStartLoc]C, AT[EESIOLoc, 1]; 

GOTO [EESIONotifyj, RTEMP (RTEMP) OR (0R@[Ishift[EOTask,14],AND@[007400, EOStartLoc]]C); 

* 10 -- Disable Input 

* Form APC&APCTask word to notify the input microcode 
EESI02: RTEMP <- AND8[0377, EIStartLoc]C, AT[EESIOLoc, 2]; 

GOTO [EESIONotify], RTEMP «- (RTEMP) OR (OR@[1 Shift[EITask,14],AND® [007400, EIStartLoc]]C); 
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* 11 -- Disable Input and Output (TPC not initialized). 

EESI03: GOTO[EESlOAbort], RCNT <- XUDisabl elnpu tOiitput, AT[EESIOLoc, 3 J ; 

* Notify appropriate code (disable done by the task code). 

EESIONotify: 

CALL[XWReturn], APC&APCTASK <- RTEMP; 

* Second Ethernet board (Dispatch on bits 14,15): 

EE2SI0: DISPATCH [AGO, 14, 2]; 

EE2SI0A: DISP [EE2SIOO]; 

* 00 Do nothing 

EE2SIOO: COTO[ EESIODonol], T «- EHostReg, AT[EE2SIOI..oc, 0]; 

* 01 -- Disable output. 

EE2SI01: RTEMP <- AHD0[O377, EOStartLoclC , AT[EEPStOLoc, l'j; 

GOTO [EE2S CONo t i f.y J , RTEMP <- (RTEMP) OR (0R9[ 1 sit i f t [EOTask? , 14] , ANDQ[00 7400, EOStartLoc2]]C): 

* 10 -- Disable Input 

EE2SI02: RTEMP <- AND@[0377 . EIStartLoc]C , AT [ EE2SI0Loc, 2 1; 

GOTO [EEZSIONo t i f.y ] , RTEMP *- (RTEMP) OR (0R<?[ 1 sh i f t [EITas k2 ,141, ANDO [007400, F.lSta rt Loc2]]C); 

* 11 -- Disable Input and Output (TPC not initialized). 

EE2SI03: GOTO[ EF.2SXOAbo r t ] , RCNT <- XWD Isablolnpu tOut-put, AT[ EE2SI0I.OC, 3j; 

* Notify appropriate code (task code does disable). 

EE2SI0No tify: 

CALI.[XWIleturn;], APC&APCTASK <- RTEMP; 

* Return hero when emulator runs again. 

EESIODone: T *■ EHostReg; * fix AC0 for return 

EESIODonol: 

AC0 <- T; 

Hi <- RTEMP1, dblgoto[EEMesaRet,EENovaRet,Rodd]; 

EENovaRet: loadpago[nePago]; 

KF10[17], gotop[neNoskip]; 


EEMesaRet: 

1oadpage[/]; 
yotop[P /fail]; 


* Code for SIO[3'|. Disable both input and output. 
EESlOAbort: 

RTEMP <- AND0[EOTask , 17], CALL [XWKi 1 11 ime r] ; 

T < XOWritestate, CALLfXWDisable]; 

T <- XTWritoStato, CAL.I.[XWD i sab I e]; 

GOTO [EE2SX0]; 

EE2SIOAbort: 

RTI.MP - AHD@[EOTask2,17 |, CALL [XWK i 11 Time r ] ; 
T <-■ XOWri teState2 , CALL] XWD 1 sable |; 

I <■ XlWri tcStatc2 , CALI [XWDisable]; 

GOTO [EESIODonej; 

XWDisable: 

0UTPUT[RCNT], GOTO[XWDally]; 

XWKi1 ITimer: 

RTEMP <- (RTEMP) + (XWId 1 eTimer); 

LoadTimer[RTEMP], RETURN; 

END; 
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insort[d01ang‘|; 

MOM I DAS INIT; I.ANGVE ItsIOM ; MULTDIB ; 
insert |’G lobalDofs]; 
i nso rt,[ XWOef s J; 

TITLE [XWTask'J; * Xerox Wire microcode (Defs in XWDefs) 

* Last modified by Murray on September 21, 1079 3:01 AM 

* modified by Murray on September 15, 1979 Base reg changes 

* modified by Murray on September 13, 1979 7:47 PM 

* written by lloy Ogus (early 79). 

% 

This module contains basic code for a single controller. 

File XWSI02 contains StartIO code for two boards. 

This version has Ethernet address recognition. 

Data buffers must be quadword-aligned, and at least 4 words long. 

Contains conditional assembly code for XW iro/F. thereat. » 

XWiro=0 for Ethernet, XWire-1 for Xerox wire hardware. 
Profetching of CSB at end of packet. 

10ATTCN sense is reversed for XWiro. 

Currently, everything (input, output, and StartIO) fits on a single page. 
R register ALLOCATION 

RO - (used by Dolnt) 

Rl - (used by Dolnt) 

R2 XWTomp - Temporary register 

113 XWComplel ion - Completion word 

114 XWIndex - Buffer displacement 

R6 XWCount - Buffer word counter (quadword buffer) 

R6 XWPti' - Buffer ptr (low) (current IOCB) 

R7 XWPtrlli - Buffer ptr (high) (current IOCB) 

RIO XWIOCB - Baso register for current IOCB (low) 

Rll XWIOCBIIi - Base register for current IOCB (high) 

R12 XWCSB - Base register- for CSB ( low) 

R13 XWCSBHi - Base register lor CSB (high) 

R14 XWTernpl - Temporary register (quadword buffer) 

R15 XWTemp2 - Temporary register 

R16 XWTomp3 - Temporary register 

1117 XWTemp4 - lemporary register 

H registers that overlay normal use 

R4 XWCSB1 - first word of CSB (not currently used) 

R5 XWNoxtIOCB - Short pointer to next IOCB 

R6 XI HA l.o - Most address (low •- input only) 

117 XIIIAHi - Most address (high - input only) 
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INPUT MICROCODE 
Input CSB 

00 (reserved for emulator control) 

01 Short pointer to First I0C8 

02 Host address (low word) 

03 Host address (high word) 

04 Input wakeup bit. mask 

05 Packets missed (for debugging) 

06-07 (unused) 

10-13 quadword scratch bufer 

14-17 Used by tost program 

Input 10C0 

00 Link to next I0CB 

01 (unused) 

02 Command word 

03 Completion word 

04 Amount used in buffer 

05 Length of buffer 

06 Low pointer to buffer 

07 High pointer to buffer 

% 

SET TASK [0J; * For R-registor addressing 

UN PAGE[ElPage]; 

* Input microcode is notified at XlStart to initialize. 

XlStart: XWTemp <• XWDisablelnput, CALI [XWOutState] , AT [ElStart.Loc]; 

* ADDRESS RECOGNITION: Ethernet encapsulation assumed. 

* Chock if the packet, 

* is explicitly for this host (dest=us), 

* or is broadcast (dest. = 0), 

" or if the host is promiscuous (us=0). 

* There arc two wakeup points. 

* XIBugin: No prefetch of CSB has been done. 

* XIFastBogin: Prefetch of CSB has been done. 

XIBegin: PFctch4 [XWCSB, XWCSB1, XWIndexlloador!]; * Fetch first 4 words of CSB 

XI Fas tBegin: 

10Storo4 [XWCSB, XIData, XWIndexScratch!]; * Read in 4 words to scratch area in CSB 
LU <- RHMASK[XIIIALo]; 

SKIP [ALUf/Oj, PFetchA [XWCSB, XWTeinpl. XWIndexScratch! ]; 

GOTO [XIForMe], T <- XWMextIOCB; * we are promiscuous 
T <• RSII [XWTempl, 10]; * Right justify destination host in T 

SKIP [ALU//0], LU «- ( RHMASKfXIHALoj) XOR (T); 

GOTO [XIForMu ], I <- XWNoxtIOCB; * Broadcast 
SKIP [ALU//0]; 

GOTO [XIForMe], T *- XWNextIOCB; * Packet explicitly for mo 

* Packet not accepted by filter. 

* Toll the hardware to ignore the rest of the packet, i.o. purge packet. 

XIPurge: XWTemp «- XWSetPurgeMode; CAI.L[XWOutState] ; 

* Return here after wakeup 

GOTO [XIFastBeg in]; 


* GET BUFFER STARTED 

* Check for no IOCB available (in case it was a slow wakeup). 

XIForMe: 

GOTO[ XI IndexOK, AI.U//0], XWIOCB <- T; * ALU-0 => No IOCB 
*** No IOCB. Bump counter in CSB. 

PFetchl[XWCSB, XWTemp, XWIndexNoICBCount!]; 

XWTemp «- (XWTemp) + !; 

PStorel[XWCSB, XWTemp, XWIndexNoICBCount!]; 

XIPu rgeSlow: 

XWTemp <- XWSetPurgeMode; CALL[XWOutState]; 

* Return here after wakeup 

GOTO [XIBegin]; 

* Set up IOCB. 

XIIndexOK: 

* Check for runt packets (<= 3 words, excluding CRC). 

* I0ATTEN-1 (0 on XWIre) => E0P => small packet 

$SkipNOATTEN; 

GOTO [XIPurge]; 

NOP; * A'l ignment( ? ) Ether 
CALL[XWBSetup]; 

XWCount <- (XWCount)-(4C); 

SKIP [ALU> =0]; 

GOTO [XIMark], T <- XWCompletion <- XWErrorZeroBuf; 

NOP; * Alignmcnt(?) XWire 
T <- 0C, CALL[XWStoreTemps] ; 

CALL[XILoop], XWCount <- (XWCount)-(4C); 

* Main loop-checks for end of buffer, then checks ATTEN for end-of-packet. 
XILoop: GOTO [XIQuadPull, R<0], XWCount *■ (XWCount)-(4C); 

$SkipNOATTEN, T <- (XWIndex) <- (XWIndex) + (4C); 

GOTO [XIAltn], INPUT[XWTemp, XWStatus]; 

RETURN, I0Storo4[XWPtr, XIData]; 

,l Get here when there is no more room for guadwords in the buffer. 

* Check ATTEN to see if end of packet. 

XIQuadFul1: 


SPIN to scope the weird glitch 
CALL[ .+1]; 
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* (XWIndex) (XWXndex) + (4C); 

* SGoToIOA'I TEN [.+2]; 

* lit TURN, I OS to re 4 [ XWCSR , XIData, XWIndexScratch]; 

* GOTO [XIA1 111 |, INPU f[XWTemp, XWStatus]; 

* Number of singles remaining in buffer = XWCount+8. 

* Set up XWCoimt as (No. singles-l), and read in singles. 

XWCount (XWCount) *-'(7C); 

CALL[XlSingles]. (XWIndex) <- (XWIndex) r(3C); 

XlSingles: GOTO [XIBufFulI, R<0], XWCount «- (XWCoimt)-1; 

$Ski pMOA TTEfl, T <- (XWIndex) «- (XWIndex)H; 

GOTO [XIAttn], INPUT[XWTcmp. XWStatus]; 

INPUT [XWTemp, XIData]; 

I.U <•• XWTemp; 

RETURN, PStorel [XWPtr, XWTemp]; 

* Wo get here when tiie input buffer Is exactly full. 

* Check if ATTF.II for EOP, indicating that the last word was the CRC, 

XIBufFull: SSkipNOATTEN, XWIndex < (XWIndex)H; 

GOTO |" XI At tn], INPUT[XWTemp. XWStatus]; 

* Check if there Is only one more word (i.e. tho CRC), 

* otherwise mark the packet buffor overrun. 

INPUT fXWTemp, XIData], CALL[XWReturn]; 

NOP; * Wait for ATTN 

$SkipNOATTEN, XWIndex r (XWIndox)+l; 

GOTO [XIAttn], INPUT [XWTemp, XWStatus]; * TOP, tluis there was only one more 
GOTO [XIMark], T «- XWComple t ion <• XWPktBufOverrun; 


* TINISH UP PACKET 

* We arrive hero after an IOATTEN/NOATTEN is detected, 

* indicating an end of packet. 

* XWIndex has the number of words stored in the current buffer. 

* XWTemp lias status word 

XIAttn: T <- LOT [XWTemp, 10, 2]; * Get excess count 

XWIndex <- (XWIndex)-(1)-1, CALL[XWStoreindex]; * CRC too 

XIAttnl: XWTemp <- (XWTemp) AND (IEE0[XWire, 0, XISMask, XXISMask]); * Isolate 

SkipfAl IJ//0]; 

GOTO[XIMark] , T <- XV/Compl ot ion <- XWGoodPacko t; 

XWCompl et ion <- XWE rrorBadHWPkt; * The hardware indicated problems 

T <- (RSII[XWTemp, 10]); * Right justify status (Ethernet) 

XIMark: XWCompl 0 1 ion «- (XWCompletion) OR (T), CALI [XWStoroStatus] ; 

CALL[XWNotify]; 

CALL[XWNcxt]; 

* Now check if there is a buffer. 

T <- XWNext TOCB ; 

SKIP[Al U//0], XWIOCB <- T; * Al U-O => no IOCB 

GOTO [XIPurgeSlow]; 

GOTO j XIPurge]; 


wo rd (CRC) 


InStatus 
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% --OUTPUT MICROCODE 


Output CSB 

00 (reserved Tor emulator control) 

0.1 Short pointer to First I0CB 

02-03 (unused) 

04 Output wakeup bit inask 

5-17 (unused) 

Output IOCB 

00 ' Link to next IOCB 

01 Initial Retransmission Interval 

02 Command word 

03 Completion word 

04 (Unused) 

05 Length of buffer 

05 Low pointer to buffer 

07 High pointer to buffer 

% 


ONPACEtFOPago]; 

* Output microcode is notified at XOStart to initialize. 

XOHoWork: 

XOStart: XWTemp «- XWDisableOutput, CALL[XWOutState], AT [EOStartLoc]; 

* Idle state of output microcode. 

XOBegin: Pf etcl)4[XWCSB, XWCSB1, XWIndoxlloade r!]; * fetch pointer to first IOCB 

T <- XV/Next IOCB ; 

XOChock: SKIP[ALU//01. XWIOCB <- T; * ALU = 0 -> no IOCB 

GOTO [XONoWorkj; 

* check to see if we are sending the same packet twice 

* Pfet.chl[XWCSB, XWTemp, XWIndexTransInt]; 

* LU <■ XWTemp; 

* SKIPfALU-0 |; 

" BREAKPOINT; 

* NOP; 

CALL[XWBSotup]; 

LU *- XWCount; 

SKIP [ A l.U > = 0 ] ; 

GOTO [XOMark], T *• XWCompletion <- XWErrorZoroBuf ; * Buffer empty 

PFetchl[XWIOCB, XWTempl, XWIndexTranslnt!]; 

SKIP [ R > - 0 ], XWTempl «- (L SI I [ XWTcmp'l, 1]) +1; * R<0 => overflow 

GOTO [XOMark], T <- XWCompletion <- XWErrorCountOV; 

PStorel[XWIOCB, XWTempl, XWIndexTranslnt!]; 

* Compute countdown interval 

* Use memory refresh address for random number. 

XOCoun tdown: 

T <- Stkp; * Save Stkp 

XWfemp3 <- pXWRandomReg; * point to "random" register 

Stkp XWTcmp3, XWTemp3 <- T; *** Expect interlock warning 

* Form new transmission interval mask, check if old has overflowed 

T <• CTASK; * XOR with Task number to add randomization 
T <- (LDF [Stack, 4, 10]) XOR (T); * Get bits 4-13B for random number 

XWTemp3 «- (XWTemp3) XOR (377C); * Complement Stkp value 

Stkp XWTeinp3; * Restore stack-pointer 

XWTempl <- (R SI I [ XWTompl, 1] ) AND (T); * Mask random number with old valuo 

* What is correct scale factor? 

GOTO [XOGO, ALU-0] , XWTempl <- LSil[XWTemp 1,2] ; 

T <- ( LDF [ XWTemp 1, 7, 2])-l; 

XWTcmp3 <- T, TASK; * Save high part (minus 1) in XWTemp3 
XWTempl «- LDF[XWTemp 1, 11, 7]'; 

XWTemp < XWD isableOutput; 

OUTPUT [XWTemp, XWWriteState]; 

* XWTempl now has low 7 bits of random no. 

* Start simple timer with low 7 bits of random number. 

* Timer slot is EOTask. 

XWTeinp4 <- XWT imerMask; * Compute t imer word 

T <r CTASK; * Timor slot is same as output task no. 

T (XWTemp4) OR (T); 

XOLoadT inter: 

XWTempl <- LS!l[XWTompl, 4]; * align data part 

XWTempl <- (XWTempl) OR (T); * OR in mask 

LoadTimer[XWTempl], CALL[XWDai1y]; 

* Can’t fiddle timers as last instruction in task 

GOTO[XWReturn]; * Driver poked us while wo were waiting 

* Timer has expired. 

* Check if still more time to elapse before start of transmission (High part of random number >=0). 
EOTimerDone: 

XWTempl <- 177C, AT [EOTimerDonel.oc]; * Set up maximum timer value 

GOTO [XOLoadT inter, R> = 0], XWTemp3 «- (XWTemp3)-l; 

* Countdown interval is over 

* Start to output words to the hardware. The hardware will start 

* the transmission to the Wire as soon as the buffer Itas 

* >10 words irt the hardware buffer, or the OutputEOP bit 

* is set (for a packet of less than 12 words) 

XWTemp <- XWEnableOutput, CAl.L[XW0utState] ; 

XOGO: 

IFEQ[XWi re , 0, C0MCHAR@["] , COMCIIARS[ ’ ]] ; 

*’ - This code for Ethernet boards. 

XWIndex <- (XWIndex)-(4C); * Initialize displacement to -4 

*’ - End of code for Ethernet boards. 
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*” - This code for Xerox Wire boards. Send Preamble, 

T <■ XWTenip XWP ream; 

XWremp <- (l..S}l[XWTnmp ,10]) OR (T); 

OUTPUT[XWTemp, XOData];' 

XWIndox +• (XWIndex)-(4C); * Let XWTcmp be written 

XWTenip <- (XWToinp) + l; 

OUTPUT[XWTcmp, XOData], CALL[XWDally]; 

*" - End of code for Xerox Wire boards. 

C0MCHAR@[~]; "'Reset back to ~ 

CALL[ XOL.oop] , XWCount <- (XWCount.)-(4C); 

* Main loop-checks for end of buffer, then checks ATTEM for end-of-pkt. 

XOL.oop : GOTO [XOQuadEmpty, R<0], XWCount <■ (XWCount )-(4C); 

$Go loIOATTEN [XOAbort]" T <- (XWIndex) e (XWIndex) + (4C); 

RETURN, I0Fotch4[XWPt"r, XOData]; 

* Normal exit from Output Loop is here 

* Number of singles remaining in buffer = XWCount+8. 

* Set lip XWCount as (No, singles-1), and output singles. 

XOQuadr.mpty: T <■• XWIndox .*• (XWIndox) i (4C); 

CALL[XOSingles ], XWCount <- ( XWCount) + ( 7C ) ; 

XOSinglos: GOTO [XOEnd, R<0], XWCount <- (XWCount)-l; 

$SkipNOATTEN, PFetchl [XWPtr, XWTemp]; 

GOTO [XOAbort]; 

T <- (ZERO) + (T) i 1, XWTomp ; * Update T and Abort 

GOTO[XWDaliy ], OUTPUT [XWTemp, XOData]; * OUTPUT Timing 

* END OF PACKET 
XOEnd: 

* Mack to generate lots of JAMs Just wait for an UndcrRuri 

* CALL[.H]; 

* NOP; 

* $SkipNOATTEN; 

* GOTO [XOAbort]; 

* RETURN; 

XWTomp <- XWSetOutputEOP, CAl.L[XWOutStat.e]; * Sot OutputFOP bit 

NOP; * Alignment(?) XWire 

* Wait for end-of-packet wakeup 

XOAbort: INPUT [XWTemp, XWStatus]; * Road Status 

XWTemp <- (XWTemp) AND (IFE@[XWire, 0, XOSMask, XXOSMask]); * Isolate OutSlatus 

GOTO [XOPacketOK, ALU-0], LU <- (XWTomp) XOR (IFE@[XWire, 0, XOCo11isionMask, XXOCollisionMask]); 

* error reported by the hardware 

SKIP [ALU-0], T <- RSII[ XWTcmp, 10]; 

XWComplot ion <- XWE rrorUadiiWPkt, GOTO[XOMark'|; 

Pfot.ch4[XWCSB, XWCSB1, XWIndexIleade r! ] , GOTO[XOCl ea r] ; * Collision only 

« GOOD PACKET status: 

XOPacketOK: 

T <- XWCompletion <- XWGoodPackot; * Mark packet good 

XOMark: XWCompletion <- (XWCompletion) OR (T), CALLfXWStoreStatus]; 

CALI [XWNot i Ey] ; 

XOMoxtBuf: 

CALL[XWNext] ; * Got next IOCB set up, and fall into collision. 

* COLLISION, restart same packet. 

XOClear: XWTemp <- XWDisableOutput; 

OUTPUT [XWTomp, XWWriteState]; 

XWTemp <- XWF.nab 1 oOutput, CALI.[XWOutState] ; 

* Now check if there is a buffer. 

T <- XWNextIOCB , GOTO[XOCheck]; 
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* SUBROUTINES 


* Get buffer descriptor pointed to in T, 

* and fix pointer (in XWPtr, XWPtrHi) XWPtrHi goes from (0. x) to (x, x+l) 

* Clears XWIndox 
XV/3 Setup: 

PFetch4 [XWIOCB, XWIndox, XWIndoxBuffer!]; 

XWIndox <- OC; 

r (XWPtrH i) +1; * Fix up high pointer 

* HUMBLE 

RETURN, XWPtrlli *- (I.SII[XWPt rH i, 10]) OR (T); 


* Various simple Load/Storo routines that are handy for TASKIng 

* T points to destination word 

XWStoreStatus: GOTOfXWReturn], PStorel[XWI00B, XWComplet ion, XWIndexCompletlon!']; 
XWStoreIndex: GOTof XWReturn ], PSlorel[XWIOCB, XWIndox, XWIndcxBuffer!]; 

XWStoreTemps: RETURN, PStore4[XWPtr, XWTompl]; 


* Chain to next I0CB and update pointer In CS9 

* This could be merged with XWNotify, 

* but that would be too long between TASKs 
XWHex t: 

Pi etch4[ XWCSfl, XWCSB1, XWTndexlloader! ] ; 
t.U <- XWCSBl; 

PFetclilfXWIOCB, XWNextIOCB, XW tndexNoxt! J ; 

LU <■ XWNextIOCB; 

RETURN, PSlore4[XWCSB, XWCSBl, XWIndexileader! |; 


* Notify the driver. 
XWNotify: 

PEetchl [XWCSB, 
l.oadPago[ 0]; * 

f * (XWTomp) or 


XWTemp, XWIndexWake!]: * Fetch wakeup bitmask 

100000c means tasking return 
( 100000c), GOTOP[DoIiit]; 


XWOli t State: 

OUTPUT [XWTemp, XWWritcState]; 

XWDally: NOP; * Need at least 2 instructions after OUTPUT before task switch 

XWRc turn: RETURN; 


END[XWTask]; 



